6772_ja-JP

liliconcom

ロジスティック回帰 - 複雑な状況<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

こんにちは 、

前に、私の問題について説明します。私はJMP7で作業していることに言及する必要があります。

私は12列のテーブルを持っています、最初の6列は次の6列のそれぞれの記述的なパラメータです。最初の6列はすべて文字、最後の6列はすべて2項の数値です。

最後の6列それぞれについてロジスティック回帰を実行し、最初の6列を予測子として使用して、"Pearson"検定から "Prob> ChiSq"値を抽出する必要があります。

さて、私は "Y、Response"コラムの一つに対して次のスクリプトを作りました：

dt = Current Data Table();
column_names = dt << Get Column Names(Character, String);

results = New Table("Results", Invisible,
                  New Column("Parameter", character),
                  New Column("GEN", numeric),
                  Add Rows(NItems(column_names))
                    );

for(i=1,i<=NItems(column_names),i++,
  colName = column_names;
  cmd = Expr(
    ow = dt << Contingency(
                Y( :GEN),
                X( :cName ),
                Contingency Table( 0 ),
                Mosaic Plot( 0 )
                );
                Wait(0.1);
    
    owr = ow<
    
    
    pValueBox= owr[NumberColBox(6)];
    pValue = pValueBox[2];

    Column(results,1) = colName;
    Column(results,2) = pValue;
  
    ow << Close Window;
    );
    Substitute Into(cmd,Expr(cName),colName);
    Eval(cmd);
    );
results << journal;
Close(results);

実行すると、完璧に動作します。では、次のようにスクリプトに次の列を追加するとします。

dt = Current Data Table();
column_names = dt << Get Column Names(Character, String);
results = New Table("Results", Invisible,
                  New Column("Parameter", character),
                  New Column("GEN", numeric),
                  New Column("Ne", numeric),
                  Add Rows(NItems(column_names))
                    );
for(i=1,i<=NItems(column_names),i++,
  colName = column_names;
  cmd = Expr(
    ow = dt << Contingency(
                Y( :GEN, :Ne),
                X( :cName ),
                Contingency Table( 0 ),
                Mosaic Plot( 0 )
                );
                Wait(0.1);
    
    owr = ow<
    
    
    pValueBox= owr[NumberColBox(6)];
    pValue = pValueBox[2];

    pValueBox1= owr[NumberColBox(12)];
    pValue1 = pValueBox1[2];


    Column(results,1) = colName;
    Column(results,2) = pValue;
    Column(results,3) = pValue1;  

    ow << Close Window;
    );
    Substitute Into(cmd,Expr(cName),colName);
    Eval(cmd);
    );
results << journal;
Close(results);

スクリプトが機能しなくなります。ツリー構造を確認したところ、両方のNumberColBoxが正しい値を参照していますが、ジャーナルが作成されず、スクリプトが機能しなくなりました。

今、私の質問：

1）静的な複数のY値がある場合、どうすれば問題を解決できますか？

2）ループを通して動的Y値を定義することは可能ですか？私は2つのループを持つことが複雑になります。

私はあらゆる提案に感謝します。