Advertisement
Guest User

Untitled

a guest
Dec 8th, 2016
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. fit.linear <- lm(y~x)
  2. library(splines)
  3. NS <- ns(x,df=3)
  4. fit.nonlinear <- lm(y~NS)
  5. anova(fit.linear, fit.nonlinear)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement