Hi Jeff,
This is how my script is:
dt=Open("C:\Users\myfile.jmp");
fm = Fit Model(
Y( :Name( "ABC Molecule" ) ),
Effects(
:Name( "ABCD" ),
:Timing 1,
:Timing 2,
:Timing 3,
:Temperature,
:pH,
:Name( "ABCD" ) * :Temperature,
:Name( "ABCD" ) * :pH,
:Timing 2 * :Timing 3,
:Timing 2 * :Temperature,
:Temperature * :pH,
:Name( "ABCD" ) * :Name( "ABCD" ),
:Timing 3 * :Timing 3
),
Personality( "Standard Least Squares" ),
Emphasis( "Minimal Report" ),
Run(
:Name( "ABCD" ) << {Scaled Estimates( 1 ),
Analysis of Variance( 1 ), Parameter Estimates( 1 ),
}
)
);
fmr=fm<<report;
a=fmr["Scaled Estimates"][TableBox(1)]<<Make combined data table;
b=fmr["Summary of Fit"][TableBox(1)]<<Make combined data table;
c=fmr["Analysis of Variance"][TableBox(1)]<<Make combined data table;
row1=nrows(a);
row2=nrows(b);
row3=nrows(c);
vals=Column(a,"Y")[1::row1];
vals2=Column(a,"Term")[1::row1];
vals3=Column(a,"Scaled Estimate")[1::row1];
vals4=Column(c,"F Ratio")[1::row1];
vals5=Column(c,"Prob > F")[1::row1];
vals6=Column(b,"Column 2")[2::2];
d=NewTable("Result",NewColumn("Y",Character,Nominal,Values(vals)),NewColumn("Term",Character,Nominal,Values(vals2)),NewColumn("Scaled Estimate",Numeric,Continuous,Values(vals3)),NewColumn("F Ratio",Numeric,Continuous,Values(vals4)),NewColumn("Prob > F",Numeric,Continuous,Values(vals5)),NewColumn("RSquare Adj",Numeric,Continuous,Values(vals6)));
For now, I am just randomly combining columns from these three tables. Can you direct me as to how I can write a more generalized script to accomplish this for different tables? Thanks