378728_zh-CN

liliconcom

多元回归的线性拟合-根据参数估计值编写组合数据表的脚本

我一直在用脚本编写一些在JMP中完成的数据分析的脚本，这些数据分析具有多个列表，Y by X Bivarate Fit和拆分表步骤。 我已经能够为所有步骤生成脚本，除了步骤外，在该步骤中，我从“适合组”报告中右键单击“参数估计值”表框，然后选择“合并数据表”

 

关于如何实现这一目标的任何建议？

 

我的脚本语言在这里：

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;

分析工具脚本编写