ユーザーが Sigma K 値を指定し、すべての連続列のリストから Y 列を選択し、それぞれに対して LJ チャートを作成し、制限を大きなデータ テーブルに保存できるようにする堅牢なスクリプトを作成しようとしています。
スクリプトはエラーを生成しませんが、グラフィカル出力は生成しません。
どこが間違っているのか分かりません。スクリプトは下記に添付されています。
ありがとう
Names Default To Here(1);
dt = Current Data Table();
// Get list of continuous columns
contCols = {};
For(i = 1, i <= N Cols(dt), i++,
col = Column(dt, i);
If(col << Get Modeling Type == "Continuous",
Insert Into(contCols, col << Get Name)
);
);
If(N Items(contCols) == 0,
Show Message(
"No continuous columns found.", "Please ensure your data table has continuous columns."
);
Stop();
);
// Dialog for selecting columns and k
colList = .;
kNum = .;
dialogResult = .;
nw = New Window("Levey-Jennings Chart Setup",
<
<MODAL></MODAL>
<P>編集 (jthi): jsl フォーマットを追加しました</P>
このスクリプトには多くの間違いがあり、おそらく法学修士（LLM）によって作成されたものと思われます。JMPでJMP作成スクリプト以外でスクリプトを作成したい場合は、 スクリプトガイドを参照することをお勧めします。
もっと見る...
Names Default To Here(1);
dt = Current Data Table();
nw = New Window("Levey-Jennings Chart Setup", << Type("Modal Dialog"),
H List Box(
Lineup Box(N Col(1),
Text Box("Select up to 50 continuous columns:"),
fcs = Filter Col Selector(dt, << Nominal(0), << Ordinal(0), << Continuous(1), Character(0), << Set Max Selected(50)),
Text Box("Enter k (number of SDs for Shewhart control limits):"),
neb = Number Edit Box(3)
),
Lineup Box(N Col(1),
Button Box("OK",
selcols = fcs << get selected;
ksig = neb << get;
),
Button Box("Cancel")
)
)
);
If(nw["Button"] != 1,
Throw("Cancelled");
);
If(N Items(selcols) == 0,
Throw("No columns selected");
);
collist = Transform Each({colname}, selcols, Name Expr(AsColumn(dt, colname)));
Substitute Into(collist, Expr(List), Expr(Y));
ccb = Eval(EvalExpr(dt << Control Chart Builder(
Show Two Shewhart Charts(0),
K Sigma(Expr(ksig)),
Variables(Expr(Name Expr(collist))),
Chart(Points(Statistic("Individual")), Limits(Sigma("Levey Jennings"))),
Show Control Panel(0)
)));
こんにちは@NBrammer 、
列名や列数を知らなくてもプラットフォームを実行する方法については、Don McCormack による次のガイドが非常に参考になります: https://community.jmp.com/t5/JSL-Cookbook/Run-a-Platform-without-Knowing-the-Number-or-Names-of-Columns/ta-p/464407
ありがとう、
ベン
