@txnelson @yuichi_katsumur
I have more than 10 individual DoE model in one data table which was generated with stepwise automatically. Next, I want to use JSL to open each DoE model and copy its script inside "fit group( )", followed by ",", so that I can have a combined model. The final format will look like example below.
Fit group(
model 1,
model 2,
model 3,
....
);
model 1 = fit model ()
model 2 = fit model ()
BTW: Is it possible to get the model effect from DoE script? I also need to change my model to REML if Random Effect of Block is in the effect. Actually I can figure this out if I know how to edit the script with JSL. Thank you so much so much for your help.
I actually made some code below already, the only help I need is to remove "\!", and replace the " in the beginning and end from finalmodel variable.
Names Default To Here( 1 );
dt = Current Data Table();
jslList = dt << Get Table Script Names;
print (N Items(jslList));
winList = {};
dott = ",";
modeltext = "";
for (i=1, i<=N Items(jslList),i++,
runjsl = dt << Run Script(jslList[i]);
rbiv = runjsl << Report;
rbiv << ShowWindow( 1 );
fitobj = rbiv[outlinebox(1)]<<get scriptable object;
fmscript=char(fitobj<<get script);
modeltext = modeltext || fmscript || dott;
//print(fmscript);
Insert Into(winList, rbiv);
);
for (i=1, i<=N Items(winList), i++,
winList[i] << Close Window();
);
finalmodel = "Fit Group (" || modeltext || ")";
/*finalmodel = Substitute(finalmodel, "\!", "");*/
print (finalmodel);