Displaying 1 result from an estimated 1 matches for "slm1".
Did you mean:
sdm1
2008 Feb 28
0
use of step.gam (from package 'gam') and superassignment inside functions
...lt;- step.gam(gam.object,
scope=list("x"=~1+x+s(x,4)+s(x,6)+s(x,12),"z"=~1+z+s(z,4)))
}
fxn()
print(summary(gam.jack))
rm(list= ls())
data(swiss)
fxn <- function() {
swiss.jack <- swiss[sample(1:nrow(swiss), 20), ]
lm1 <- lm(Fertility ~ ., data = swiss.jack)
slm1 <- step(lm1)
}
fxn()
***End of code***
--
Megan C. Ferguson
Southwest Fisheries Science Center
8604 La Jolla Shores Dr.
La Jolla, CA 92037
(858)546-7118 W
(858)546-7003 Fax
Megan.Ferguson at noaa.gov