415358_ja-JP

liliconcom

データテーブルAから1つのレポートを追加し、続いてデータテーブルBからForループまで別のレポートを追加する方法

AとBの2つの異なるデータテーブルがあります。 各データテーブルから1つの列があり、同様の変数があります。

個別のForループを使用してテーブルレポートを作成し、それを1つの新しいウィンドウに追加することで、同様の変数を持つ列ごとに各データテーブルAおよびBからサブセットを作成します。

サブセットデータテーブルAから作成されたすべてのテーブルレポートが新しいウィンドウに追加され、サブセットデータテーブルBからのすべてのテーブルレポートが続くことに気付きました。

必要なのは、各変数レベルについて、サブセットデータテーブルAから1つのテーブルレポートを追加し、続いてサブセットデータテーブルBからテーブルレポートを追加することです。

 

コードはどのように書くべきですか？

 

これを説明するための例として、ビッグクラスとビッグクラスファミリーのデータセットを使用しています。

dt1 = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt2 = Open( "$SAMPLE_DATA/Big Class Families.jmp" );

vb = V List Box();
listdt1 = {};
listdt2 = {};
coldt1 = Column (dt1, "age");
coldt2 = Column (dt2, "age");
colleveldt1 = Associative Array(coldt1) << Get Keys;
colleveldt2 = Associative Array(coldt1) << Get Keys;

For (i=1, i <=N Items(colleveldt1), i++,
 dt1row = dt1 << Get Rows Where(:age == colleveldt1[i]);
 listdt1[i] = dt1 << Subset(Rows(dt1row));
 tb = listdt1[i]<< Get As Report;
 vb << Append (Table Box(tb));

);
 
For (i=1, i <=N Items(colleveldt2), i++,
 dt2row = dt2 << Get Rows Where(:age == colleveldt2[i]);
 listdt2[i] = dt2 << Subset(Rows(dt2row));
 tb = listdt2[i]<< Get As Report;
 vb << Append (Table Box(tb));
 
 
);

New Window("Report", vb);

 

 

スクリプティングRe：データテーブルAから1つのレポートを追加し、その後にForループを介してデータテーブルBから別のレポートを追加する方法

JSLを動かすだけで、必要なものを手に入れることができます

Names Default To Here( 1 );

dt1 = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt2 = Open( "$SAMPLE_DATA/Big Class Families.jmp" );

vb = V List Box();
listdt1 = {};
listdt2 = {};
coldt1 = Column (dt1, "age");
coldt2 = Column (dt2, "age");
colleveldt1 = Associative Array(coldt1) << Get Keys;
colleveldt2 = Associative Array(coldt1) << Get Keys;

For (i=1, i <=N Items(colleveldt1), i++,
 dt1row = dt1 << Get Rows Where(:age == colleveldt1[i]);
 listdt1[i] = dt1 << Subset(Rows(dt1row),invisible);
 tb = listdt1[i]<< Get As Report;
 vb << Append (Table Box(tb));
dt2row = dt2 << Get Rows Where(:age == colleveldt2[i]);
 listdt2[i] = dt2 << Subset(Rows(dt2row),invisible);
 tb = listdt2[i]<< Get As Report;
 vb << Append (Table Box(tb));
);

New Window("Report", vb);