data(sim)
if (FALSE) {
### CRAN policy says examples must take < 5 sec. This doesn't.
out6 <- aster(resp ~ varb + 0 + z1 + z2 + I(z1^2) + I(z1*z2) + I(z2^2),
pred, fam, varb, id, root, data = redata)
summary(out6)
}
lout <- lm(y ~ z1 + z2 + I(z1^2) + I(z1*z2) + I(z2^2), data = ladata)
summary(lout)
Run the code above in your browser using DataLab