J'essaie d'écrire un script robuste qui permettra à l'utilisateur de spécifier une valeur Sigma K et de sélectionner Y colonnes dans une liste de toutes les colonnes continues et de créer les graphiques LJ pour chacune et d'enregistrer les limites dans une grande table de données.
Le script ne crée aucune erreur mais ne crée pas de sortie graphique.
Je ne vois pas où je me trompe, script ci-dessous et ci-joint
Merci
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>Modifier (jthi) : ajout du formatage jsl</P>
Le script comporte de nombreuses erreurs et je suppose qu'il a été créé par un LLM. Si vous souhaitez créer des scripts dans JMP en dehors des scripts créés par JMP, je vous suggère de consulter le Guide de script .
Voir plus...
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)
)));
Merci - parfait
Je vais parcourir ligne par ligne et essayer de comprendre ce qui se passe
Salut @NBrammer ,
J'aime beaucoup ce guide de Don McCormack sur l'exécution de plates-formes sans connaître les noms ou le nombre de colonnes : Exécuter une plateforme sans connaître le nombre ou le nom des colonnes
Merci,
Ben