48892_zh-TW

liliconcom

編寫模型對話框的腳本

是否可以在腳本中操作模型對話框？

特別是在廣義回歸中，“使用活動效果重新啟動”消息打開了一個模型對話框，但我無法確定如何運行該對話框。集群變量平台也有類似的問題。您可以發送消息<< Launch Fit Model打開模型對話框，但我不知道如何在我的腳本中使用該對話框。

來自幫助系統的示例腳本

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Diabetes.jmp" );
fm = Fit Model(
 Y( :Y ),
 Effects(
  :Age,
  :Gender,
  :BMI,
  :BP,
  :Total Cholesterol,
  :LDL,
  :HDL,
  :TCH,
  :LTG,
  :Glucose
 ),
 Personality( "Generalized Regression" ),
 Generalized Distribution( "Normal" ),
 Validation( :Validation ),
 Run(
  Fit(
   Estimation Method( Lasso( Adaptive ) ),
   Validation Method( Validation Column )
  )
 )
);
fm << (fit[1] << Relaunch with Active Effects);

 

Re：腳本化模型對話框

我相信“使用Active Effects重新啟動”旨在成為一種交互式工具，如果您想模仿交互式操作，則應從報告中提取信息，並使用JSL重新發布Fit Model代碼。  請參閱下面的示例

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Diabetes.jmp" );
fm = Fit Model(
 Y( :Y ),
 Effects(
  :Age,
  :Gender,
  :BMI,
  :BP,
  :Total Cholesterol,
  :LDL,
  :HDL,
  :TCH,
  :LTG,
  :Glucose
 ),
 Personality( "Generalized Regression" ),
 Generalized Distribution( "Normal" ),
 Validation( :Validation ),
 Run(
  Fit(
   Estimation Method( Lasso( Adaptive ) ),
   Validation Method( Validation Column )
  )
 )
);

// Parse out the Effect Tests table to get the remaing effects
RemainingEffects = report(fm)["Effect Tests"][StringColBox(1)]<<GET>=1,i--,
 if(Notes[i]=="Removed",
  RemainingEffects = remove(RemainingEffects,i,1);
 )
);

// Run the new model
fm2 = Fit Model(
 Y( :Y ),
 Effects(
  eval(RemainingEffects)
 ),
 Personality( "Generalized Regression" ),
 Generalized Distribution( "Normal" ),
 Validation( :Validation ),
 Run(
  Fit(
   Estimation Method( Lasso( Adaptive ) ),
   Validation Method( Validation Column )
  )
 )
);</GET>

Re：腳本化模型對話框

沒關係，我只想出一個選項 - 只需將點擊消息發送到運行按鈕，如 

window("Report: Fit Model")[buttonbox(9)] << click;

也許有更優雅的方式來做到這一點？

 

謝謝

岡特