48892_zh-CN

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;

也许有更优雅的方式来做到这一点？

 

谢谢

冈特