433697_ja-JP

liliconcom

JSLヘルプ：レポートおよびテーブルボックスとして取得

こんにちは、みんな、

 

私は最近、Table Box（）機能を使用して新しいウィンドウにいくつかの情報を要約するJSLの作成を開始しました。これは、ユーザーが行を選択して次のステップのプロセスを実行できるようにするためです。 インタラクティブなテーブルボックスを作成するのは面倒な場合があります。また、最近、Get As Reportコマンドを使用して、データテーブルを取得し、インタラクティブなテーブルボックスのようなインターフェイスに変換できることも学びました。これにより、インターフェイスの構築がはるかに簡単かつ迅速になります。

 

たとえば、次のJSLを参照してください。

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Boston Housing.jmp" );

RptWin = New Window( "Data Table as report",
Outline Box("Data Table as Report",
 dt_Rpt = dt << Get as Report(); 
  
 )
);

 

 

私が抱えている唯一の問題は、テーブルボックスでできるように新しいウィンドウで出力を使用する方法です。

 

テーブルボックス環境では、選択した情報を返し、コードのさらに下で使用できるように関数を設定できます。 ただし、[レポートとして取得]コマンドではそれができません。 少なくとも、その方法の例は見つかりませんでした。また、スクリプトインデックスには、[レポートとして取得]コマンドがあまりありません。

 

次のコードは、一度に1つの行を選択できるテーブルボックスを作成した例です。

tb = Table Box(
 Number Col Box( "PC Number", Eval List( PC_n ) ),
 Number Col Box( "Eigenvalue", Eval List( PC_eigv ), <<SET format=""> 1, Throw( "Too many items selected!\!rOnly one selection possible." ),
    N Items( SelRows ) == 1,
     SelRows = this << Get Selected Rows;
     N_PCs = SelRows[1];
   );
  )
 )
)</SET>

Get As Report出力を使用するときに同じ種類の機能を取得する方法はありますか？

 

フィードバックをありがとう！、

DS

スクリプティングRe：JSLヘルプ：レポートとテーブルボックスとして取得

そのため、テーブルにアクセスするには、Get are Report（）関数から返される参照参照を1レベル下に移動する必要があると思います。これを試して：

 

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Boston Housing.jmp" );

RptWin = New Window( "Data Table as report",
 Outline Box("Data Table as Report",
  dt_Rpt = dt << Get as Report(); 
 )
);

tb = dt_Rpt[Table Box( 1 )];

tb << Set Shade Headings( 1 );

tb << Append(
 Plot Col Box( "",
  :mvalue << get values,
  <<SET scale=""> 1, Throw( "Too many items selected!\!rOnly one selection possible." ),
   N Items( SelRows ) == 1,
    SelRows = this << Get Selected Rows;
    N_PCs = SelRows[1];
  );
 )
);</SET>

Re：JSLヘルプ：レポートとテーブルボックスとして取得

やあ@ih 、

 

迅速な返信と解決策をありがとう-それはまさに私が探しているものです。 完璧に動作します。 これが私がそれを実装しようとしていたコードのより大きなビットです。 これは別のトピックですが、ユーザーがテーブルボックスの行をクリックすると強調表示されるように、以下のコードのグラフビルダーの表示を[レポートとして取得]テーブルボックスにリンクする方法を偶然知っていますか？グラフビルダーの対応するデータポイント？ちなみに、私はボストンハウジングをサンプルデータセットとして使用しており、mvalueを応答として、他のすべての列をパーティションの予測子として使用しています。検証部分は0.3を使用しています。

 

ありがとう！、

DS

Names Default To Here( 1 );

lbWidth = 168;

dt = Open( "$SAMPLE_DATA/Boston Housing.jmp" );

// Expression to store the current settings in global variables
recallRolesS1 = Expr(
 ::dtchosenRecall = dtchosen
);

// Expression to clear all current settings. KW: Clear
clearRoles = Expr(
 Try(
  colListY << RemoveAll;
  ColListX << RemoveAll;
  ColListW << RemoveAll;
  ColListF << RemoveAll;
  colListV << RemoveAll;
 )
);

// Expression to store the current settings in global variables
recallRoles = Expr(
 ::ycolRecall = colListY << GetItems;
 ::xcolRecall = colListX << GetItems;
 ::WcolRecall = colListW << GetItems;
 ::FcolRecall = colListF << GetItems;
 ::vcolRecall = colListV << GetItems;
 ::max_spRecall = max_sp_input << get;
 ::partVPRecall = partVP_input << Get;
);

//Function to choose the data table to model. KW: choose_data
choose_data_table = Function( {},
 list = {};
 For( i = 1, i <= N Table(), i++,
  list[i] = Data Table( i ) << get name
 );
 win = New Window( "Select a data table",
  <<MODAL> 1, Throw( "Too many items selected!\!rOnly one selection possible." ),
    N Items( SelRows ) == 1,
     SelRows = this << Get Selected Rows;
     NPCs = SelRows[1];
   );
  )
 );
 
);


Part = Expr(
 If(
  N Items( vcols ) == 1,
   dt_results = New Table( "Partition_Results",
    Add Rows( max_sp ),
    New Column( "Splits", Numeric, Continuous ),
    New Column( "Training RSquare", Numeric, Continuous ),
    New Column( "Validation RSquare", Numeric, Continuous ),
    New Column( "Training RASE", Numeric, Continuous ),
    New Column( "Validation RASE", Numeric, Continuous ),
    New Column( "Training N", Numeric, Continuous ),
    New Column( "Validation N", Numeric, Continuous ),
    New Column( "RSquare Diff", Numeric, Continuous, Formula( "Training RSquare"n - "Validation RSquare"n ) ),
    New Column( "Penalized Valid RSquare", Numeric, Continuous, Formula( "Training RSquare"n - 0.05 * "Splits"n ) )
   ),
  N Items( vcols ) == 0 & Is Missing( partVP ) == 0,
   dt_results = New Table( "Partition_Results",
    Add Rows( max_sp ),
    New Column( "Splits", Numeric, Continuous ),
    New Column( "Training RSquare", Numeric, Continuous ),
    New Column( "Validation RSquare", Numeric, Continuous ),
    New Column( "Training RASE", Numeric, Continuous ),
    New Column( "Validation RASE", Numeric, Continuous ),
    New Column( "Training N", Numeric, Continuous ),
    New Column( "Validation N", Numeric, Continuous ),
    New Column( "RSquare Diff", Numeric, Continuous, Formula( "Training RSquare"n - "Validation RSquare"n ) ),
    New Column( "Penalized Valid RSquare", Numeric, Continuous, Formula( "Validation RSquare"n - 0.05 * "Splits"n ) )
   ),
  N Items( vcols ) == 0,
   dt_results = New Table( "Partition_Results",
    Add Rows( max_sp ),
    New Column( "Splits", Numeric, Continuous ),
    New Column( "Training RSquare", Numeric, Continuous ),
    New Column( "Training RASE", Numeric, Continuous ),
    New Column( "Training N", Numeric, Continuous ),
    New Column( "Penalized Train RSquare", Numeric, Continuous, Formula( "Training RSquare"n - 0.05 * "Splits"n ) )
   )
 );
 
 For( i = 1, i <= max_sp, i++,
  dt_results:"Splits"n[i] = i
 );
 
 dt_name = dtchosen << Get Name;
 
 For( i = 1, i <= N Rows( dt_results ), i++,
  Psplit = dt_results:"Splits"n[i];
  str = Eval Insert(
   "report = (dtchosen<<PARTITION></PARTITION></MODAL>

Re：JSLヘルプ：レポートとテーブルボックスとして取得

あなたは賭けます。 グラフはすでにテーブルに関連付けられているため、下の2つの行をSet Row Change関数に追加すると、その動作が表示されるはずです。

 

 tb << Set Row Change Function(
  Function( {this},
   {SelRows},
   SelRows = this << Get Selected Rows;
   If(
    N Items( SelRows ) > 1, Throw( "Too many items selected!\!rOnly one selection possible." ),
    N Items( SelRows ) == 1,
     SelRows = this << Get Selected Rows;
     NPCs = SelRows[1];
   );
   // ** Added next two lines **
   dt_results << Clear Select;
   dt_results << Select rows(SelRows);
  )
 );

Re：JSLヘルプ：レポートおよびテーブルボックスとして取得

こんにちは@ih 、

 

はい、完璧です！ それは実際には完全に理にかなっています、そしてなぜ私がそれをすることを考えなかったのか分かりません。

 

迅速な解決策を再度ありがとう！、

DS