In un certo senso sono perso con la necessità di aggiungere l'output di questo in diapositive ppt - il mio obiettivo è che ogni diapositiva abbia 4 colonne e due righe.
Ecco cosa ho fatto finora
params = New Window( "Parameters vs WEW (Design)",
V List Box(
Lineup Box( N Col( NST ),
For( i = 1, i <= N Items( colnamey ), i++,
biv = Bivariate(
Y( Column( dt, colnamey[i] ) ),
X( Column( dt, colnamex[i] ) ),
By( :STO ),
Group By( Column( dt, groupname ) ),
Fit Spline( 1000 )
);
rbiv = biv << report;
For( k = 1, k <= NST, k++,
rbiv[k][FrameBox( 1 )] << {Frame Size( 250, 200 ),
Marker Size( 0 ), Line Width Scale( 2 )};
rbiv[k][axis box( 2 )] <<
Tick Font( style( 1 ), size( 9 ) ) <<
Format( Best, 5 ) << Show Major Grid( 1 ) <<
Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
rbiv[k][axis box( 1 )] <<
Tick Font( style( 1 ), size( 9 ) ) <<
Format( Best, 5 ) << Show Major Grid( 1 ) <<
Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
rbiv[k][Text Edit Box( 2 )] << Set Font Size( 10 )
<< Set Font Style( "Bold" );
rbiv[k][Text Edit Box( 1 )] << Set Font Size( 10 )
<< Set Font Style( "Bold" );
);
For( b = 1, b <= N Items( GroupList ), b++,
fitcrve = "biv << (curve[" || Char( b ) ||
"]<<REPORT></REPORT>Prova params << salva presentazione (). Ecco un esempio:
Names Default To Here( 1 );
Open( "$SAMPLE_DATA/Big Class.jmp" );
nw = new window("Example",
vlb = vlistbox(
table box(
string col box("Hello", {"ABC", "DEF", "GHI"}),
number col box("World", {100, 200, 300}),
),
biv = bivariate( y( :weight ), x( :height ) ),
)
);
nw << Save Presentation( "$TEMP/jmp_example.pptx" );
Open( "$TEMP/jmp_example.pptx" );
In questo modo la tablebox e l'analisi bivariata su pagine separate. Non sono sicuro di come mettere tutto in una pagina.
Questo argomento ha già ricevuto una risposta. Qui è il link ad esso.
