Guest User

Untitled

a guest
Feb 18th, 2019
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.19 KB | None | 0 0
  1. > require(mgcv)
  2. > data(beavers)
  3. > mod <- gam(temp ~ s(time, bs="cr", k = length(beaver1$time)), data = beaver1)
  4. > length(mod$smooth[[1]]$xp)
  5. [1] 114
  6. > plot(mod, scheme = 1, residuals = T)
Add Comment
Please, Sign In to add comment