J'ai travaillé sur le script de certaines analyses de données effectuées dans JMP avec plusieurs tabulations, Y by X Bivarate Fit et des étapes de table fractionnées. J'ai pu générer des scripts pour tout sauf l'étape où je clique avec le bouton droit de la souris dans une TableBox d'estimations de paramètres à partir du rapport Fit Group et sélectionne "Make Combined Data Table"
Des suggestions sur la façon d'accomplir cela?
Mon langage de script est ici :
Names Default To Here( 1 );
dt = Open( "data file directory" );
obj = dt << Tabulate(
Add Table(
Column Table( Analysis Columns( :KT3, :Log Age, :k31, :N1 ), Statistics( Mean ) ),
Row Table( Grouping Columns( :Batch No., :Age ) )
)
);
obj << Make into Data Table;
New Window( "",
V List Box(
Fit Group(
Bivariate(
SendToByGroup( {:Batch No. == "By Variable 1"} ),
SendToByGroup( {:Batch No. == "By Variable 1"}, Y( :Name( "Mean(KT3)" ) ) ),
SendToByGroup(
{:Batch No. == "By Variable 1", Platform Index( 2 )},
Y( :Name( "Mean(k31)" ) )
),
SendToByGroup(
{:Batch No. == "By Variable 1", Platform Index( 3 )},
Y( :Name( "Mean(N1)" ) )
),
SendToByGroup( {:Batch No. == "By Variable 2"}, Y( :Name( "Mean(KT3)" ) ) ),
SendToByGroup(
{:Batch No. == "By Variable 2", Platform Index( 2 )},
Y( :Name( "Mean(k31)" ) )
),
SendToByGroup(
{:Batch No. == "By Variable 2", Platform Index( 3 )},
Y( :Name( "Mean(N1)" ) )
),
SendToByGroup( {:Batch No. == "By Variable 3"}, Y( :Name( "Mean(KT3)" ) ) ),
SendToByGroup(
{:Batch No. == "By Variable 3", Platform Index( 2 )},
Y( :Name( "Mean(k31)" ) )
),
SendToByGroup(
{:Batch No. == "By Variable 3", Platform Index( 3 )},
Y( :Name( "Mean(N1)" ) )
),
SendToByGroup( {:Batch No. == "By Variable 4"}, Y( :Name( "Mean(KT3)" ) ) ),
SendToByGroup(
{:Batch No. == "By Variable 4", Platform Index( 2 )},
Y( :Name( "Mean(k31)" ) )
),
SendToByGroup(
{:Batch No. == "By Variable 4", Platform Index( 3 )},
Y( :Name( "Mean(N1)" ) )
),
SendToByGroup( {:Batch No. == "By Variable 5"}, Y( :Name( "Mean(KT3)" ) ) ),
SendToByGroup(
{:Batch No. == "By Variable 5", Platform Index( 2 )},
Y( :Name( "Mean(k31)" ) )
),
SendToByGroup(
{:Batch No. == "By Variable 5", Platform Index( 3 )},
Y( :Name( "Mean(N1)" ) )
),
SendToByGroup( {:Batch No. == "By Variable 6"}, Y( :Name( "Mean(KT3)" ) ) ),
SendToByGroup(
{:Batch No. == "By Variable 6", Platform Index( 2 )},
Y( :Name( "Mean(k31)" ) )
),
SendToByGroup(
{:Batch No. == "By Variable 6", Platform Index( 3 )},
Y( :Name( "Mean(N1)" ) )
),
SendToByGroup( {:Batch No. == "By Variable 7"}, Y( :Name( "Mean(KT3)" ) ) ),
SendToByGroup(
{:Batch No. == "By Variable 7", Platform Index( 2 )},
Y( :Name( "Mean(k31)" ) )
),
SendToByGroup(
{:Batch No. == "By Variable 7", Platform Index( 3 )},
Y( :Name( "Mean(N1)" ) )
),
SendToByGroup( {:Batch No. == "By Variable 8"}, Y( :Name( "Mean(KT3)" ) ) ),
SendToByGroup(
{:Batch No. == "By Variable 8", Platform Index( 2 )},
Y( :Name( "Mean(k31)" ) )
),
SendToByGroup(
{:Batch No. == "By Variable 8", Platform Index( 3 )},
Y( :Name( "Mean(N1)" ) )
),
X( :Name( "Mean(Log Age)" ) ),
Fit Line( {Line Color( {212, 73, 88} )} ),
By( :Batch No. )
)
)
)
);
Report( Fit Group[1] )["Parameter Estimates"][Table Box( 3 )] << Make Combined Data Table;Pour obtenir ce que vous voulez, changez
Bivariate(
pour
Biv = Bivariate(
et changer
Report ( Fit Group[1] ) ["Parameter Estimates"][Table Box( 3)] << Make Combined Data Table;
pour
Report ( Biv[1] ) ["Parameter Estimates"][Table Box( 1)] << Make Combined Data Table;