Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- fit.linear <- lm(y~x)
- library(splines)
- NS <- ns(x,df=3)
- fit.nonlinear <- lm(y~NS)
- anova(fit.linear, fit.nonlinear)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement