inst/scripts/trwlgam2.q

library(gam)
with(trawl, {
ind       <- (Year == 0 & Zone == 1)
score1    <- Score1[ind]
latitude  <- Latitude[ind]
longitude <- Longitude[ind]
print(gam(score1 ~ lo(longitude) + lo(latitude)))
print(gam(score1 ~ lo(longitude)))
print(gam(score1 ~ lo(latitude)))
})

Try the sm package in your browser

Any scripts or data that you put into this service are public.

sm documentation built on July 4, 2022, 5:06 p.m.