저는 여러 테이블, Y by X Bivarate Fit 및 분할 테이블 단계를 사용하여 JMP에서 수행 된 일부 데이터 분석을 스크립팅하는 작업을 해왔습니다. Fit Group 보고서에서 Parameter Estimates 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;