/*:
// Save Columns: Prediction Formula
Local({obj},
obj = Data Table("InjectionMolding") << Fit Model(
Y(:Shrinkage),
Effects(:MoldTemp, :Screw Speed, :MoldTemp * :Screw Speed),
LogVariance Effects(:Hold Time & LogVariance),
Personality("Loglinear Variance"),
Run
);
obj << (:Shrinkage << Prediction Formula);
obj << Close Window;
);
// Save Columns: Indiv Confidence Interval
Local({obj},
obj = Data Table("InjectionMolding") << Fit Model(
Y(:Shrinkage),
Effects(:MoldTemp, :Screw Speed, :MoldTemp * :Screw Speed),
LogVariance Effects(:Hold Time & LogVariance),
Personality("Loglinear Variance"),
Run
);
obj << (:Shrinkage << Indiv Confidence Interval);
obj << Close Window;
);