48140_es-ES

liliconcom

Ruta de solución interactiva de regresión generalizada

Hola, en un script mío me gustaría detectar el momento en que un usuario interactúa con la ruta de la solución en genreg (arrastrando la línea vertical en el gráfico de la ruta de la solución) para generar algunos gráficos personalizados basados en el modelo seleccionado.  ¿Cualquier sugerencia? Gracias de antemano Matteo

Re: ruta de solución interactiva de regresión generalizada

Encontré una posible solución usando la trampa para ratones (), desgraciadamente con algunos inconvenientes

1) en el primer clic del usuario dentro del marco de la ruta de la solución, aparecerá un botón de actualización. Después de eso, la interactividad de la ruta de la solución se restaura como de costumbre.

2) cuando el usuario hace clic en el botón de actualización, la situación inicial se restaura. 

 

Luego colocaré las funciones de elaboración de modelos dentro de la secuencia de comandos del botón de actualización.

 

Estaba buscando una mejor solución que no fuera tan visible para el usuario / que no requiriera intervención, me alegraría si alguien pudiera dar una sugerencia para mejorar el código a continuación.

 

Gracias
Matteo

 

 

 

m = Fit Model(
 Y( :Y ),
 Effects( :X1, :X2, :X3 ),
 Personality( "Generalized Regression" ),
 Generalized Distribution( "Normal" ),
 Run( Fit( Estimation Method( Lasso( Adaptive ) ), Validation Method( AICc ) ) )
);

f1 = (m << report)[Outline Box( "Solution Path" )][frame box( 1 )];
f2 = (m << report)[Outline Box( "Solution Path" )][frame box( 2 )];


setSolutionPathTraps = Function( {fb1, fb2, bb},
 Eval(
  Eval Expr(
   fb1 << add graphics script(
    Mousetrap(
     bb << visibility( "visible" ),
     Expr( fb2 ) << remove graphics script( 1 );
     Expr( fb1 ) << remove graphics script( 1 );
    )
   );
   fb2 << add graphics script(
    Mousetrap(
     bb << visibility( "visible" ),
     Expr( fb1 ) << remove graphics script( 1 );
     Expr( fb2 ) << remove graphics script( 1 );
    )
   );
  )
 );
 bb << visibility( "collapse" );
);

New Window( "a", bb = Button Box( "Refresh", setSolutionPathTraps( f1, f2, bb ) ) );


setSolutionPathTraps( f1, f2, bb );