378728_zh-TW

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;

分析工具腳本編寫