48892_de-DE

liliconcom

Skripting eines Modelldialogs

Ist es möglich, einen Modelldialog innerhalb eines Skripts zu bearbeiten?

Insbesondere bei der allgemeinen Regression öffnet die Nachricht 'Relaunch with Active Effects' einen Modelldialog, aber ich kann nicht herausfinden, wie der Dialog ausgeführt wird. Die Clustervariablenplattform hat ein ähnliches Problem. Sie können die Nachricht << Fit Model starten starten, wodurch ein Modelldialogfeld geöffnet wird. Ich kann jedoch nicht mit dem Dialogfeld in meinem Skript arbeiten.

Beispielskript aus dem Hilfesystem

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: Skripting eines Modelldialogs

Ich glaube, dass "Relaunch mit Active Effects" ein interaktives Werkzeug sein soll. Wenn Sie interaktive Aktionen nachahmen möchten, sollten Sie die Informationen aus dem Bericht ziehen und den Fit Model-Code mit JSL erneut ausgeben.  Siehe unten für ein Beispiel

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: Skripting eines Modelldialogs

Egal, ich habe nur eine Option herausgefunden - schicken Sie einfach die Klick-Nachricht an den Start-Button, wie in 

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

Vielleicht gibt es einen eleganteren Weg, dies zu tun?

 

Vielen Dank

Gunter