48892_it-IT

liliconcom

scripting un modello di dialogo

è possibile manipolare una finestra di dialogo del modello all'interno di uno script?

In particolare nella regressione generalizzata il messaggio 'Riavvia con effetti attivi' apre una finestra di dialogo del modello, ma non riesco a capire come eseguire la finestra di dialogo. La piattaforma delle variabili cluster ha un problema simile. Puoi inviare il messaggio << Avvia Fit Model che apre una finestra di dialogo del modello ma non so come lavorare con la finestra di dialogo nel mio script.

script di esempio dal sistema di guida

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);

 

Ri: scripting una finestra di dialogo del modello

Credo che il "Riavvia con Active Effects" sia inteso come uno strumento interattivo e che se si desidera imitare le azioni interattive, è necessario estrarre le informazioni dal report e riemettere il codice del modello di adattamento con JSL.  Vedi sotto per un esempio

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>

Ri: scripting una finestra di dialogo del modello

Non importa, ho appena trovato un'opzione - basta inviare il messaggio di clic al pulsante Esegui, come in 

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

forse c'è un modo più elegante per farlo?

 

Grazie

Gunter