powered by
actuator
line
nozzle
bplot(jet$force,by=jet$act) mplot(jet$force,jet$act,jet$press,both=TRUE) anova( lm(force ~ act+press+act:press, data=jet) )
Run the code above in your browser using DataLab