48892_es-ES

liliconcom

scripting un diálogo modelo

¿Es posible manipular un diálogo modelo dentro de un script?

En particular, en la regresión generalizada, el mensaje 'Relanzar con efectos activos' abre un cuadro de diálogo modelo, pero no puedo averiguar cómo ejecutar el cuadro de diálogo. La plataforma de variables de cluster tiene un problema similar. Puede enviar el mensaje << Launch Fit Model que abre un cuadro de diálogo modelo pero no sé cómo trabajar con el cuadro de diálogo en mi script.

script de ejemplo del sistema de ayuda

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: scripting un diálogo modelo

Creo que el "Relanzamiento con efectos activos está pensado para ser una herramienta interactiva, y que si desea imitar las acciones interactivas, debe extraer la información del informe y volver a emitir el código Fit Model con JSL.  Vea a continuación un ejemplo

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: scripting un diálogo modelo

No importa, solo he descubierto una opción: simplemente envíe el mensaje de clic al botón Ejecutar, como en 

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

Tal vez hay una manera más elegante de hacer esto?

 

Gracias

Gunter