search for: 22step

...ot;x2"]+rnorm(100,0,0.05),grp=rep("C",100)) data2 <- rbind(d1,d2,d3) # Fit each surface by grp model <- y ~ x1*x2 by(data2, data2$grp, function(x) {step(lm(model, data=x))}) -- View this message in context: http://www.nabble.com/How-to-exclude-insignificant-intercepts-using-%22step%22-function-tp24158818p24158818.html Sent from the R help mailing list archive at Nabble.com.