Below are few good options
- Use make into datatable and concatenate
- Get values into list/matrix, add as many rows as you have in those and use data table subscripting
And here is one possible script for the make into datatable + concatenate
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Drug.jmp");
dt_results = New Table("Results",
Add Rows(0),
New Column("FA", Character, Nominal),
New Column("Pre", Numeric, Continuos),
New Column("Post", Numeric, Continuos),
New Column("Shift", Character, Nominal),
New Column("Date", Numeric, Continuos)
);
ow = dt << Oneway(Y(:y), X(:Drug),
ANOM(1, Show Summary Report(1), Point Options("Show Needles"))
);
tb = Report(ow)[Outline Box("Analysis of Means Summary"), Table Box(1)];
dt_ow = tb << Make Into Data Table;
Column(dt_ow, "Lower Limit") << Set Name("Pre");
Column(dt_ow, "Group Mean") << Set Name("Post");
dt_ow << Delete Columns({"Level", "Group N", "Upper Limit", "Limit Exceeded"});
dt_results << Concatenate(
dt_ow,
"Append To First Table"
);
Close(dt_ow, no save);
-Jarmo