私は、JMPで行われるいくつかのデータ分析のスクリプト作成に取り組んでおり、複数の表、Y by X Bivarate Fit、および分割テーブルステップを使用しています。 Fit GroupレポートからParameterestimates TableBoxを右クリックし、[Make Combined Data Table]を選択するステップを除いて、すべてのスクリプトを生成することができました。
これを達成する方法について何か提案はありますか?
私のスクリプト言語はここにあります:
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;