48140_ja-JP

liliconcom

一般化回帰インタラクティブソリューションパス

こんにちは、私のスクリプトで、選択したモデルに基づいてカスタムチャートを生成するために、ユーザーがgen regでソリューションパスと対話した瞬間（ソリューションパスグラフの垂直線をドラッグすること）を検出したいです。 なにか提案を？事前に感謝します

一般化回帰インタラクティブソリューションパス

私はmousetrap（）を使用して可能な解決策を見つけました、残念ながらいくつかの欠点があります

1）最初のユーザーがソリューションパスフレーム内をクリックすると、更新ボタンが表示されます。その後、ソリューションパスのインタラクティビティは通常どおり復元されます。

2）ユーザーが更新ボタンをクリックすると、初期状態に戻ります。 

 

次に、モデルの詳細機能を更新ボタンのスクリプト内に配置します。

 

私はユーザーには見えない/介入を必要としないより良い解決策を探していました、誰かが以下のコードを改善するために提案をすることができたらうれしいです。

 

ありがとう
マッテオ

 

 

 

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