On Jun 21, 2011, at 11:27 AM, pigpigmeow wrote:
i read a book from WOOD, there's an example which is talking about the
pollutant.
library(gamair)
library(mgcv)
y<-gam(death~s(time,bs="cr",k=200)+s(pm10median,bs="cr")
+s(so2median,bs="cr")+s(o3median,bs="cr")
+s(tmpd,bs="cr"),data=chicago,family=Possion)
lag.sum<-function(a,10,11)
Consider:
> tf <- function(a, 10){return(10)}
Error: unexpected numeric constant in "tf <- function(a, 10"
You are attempting to create a function with an unnamed argument.
--
David.
{n<-length(a)
b<-rep(0,n-11)
for(i in 0:(11-10))
b<-b+a[(i+1):(n-11+i)]
b}
death<-chicago$death[4:5114]
time<-chicago$time[4:5114]
o3<-lag.sum(chicago$o3median,0,3)
tmp<-lag.sum(chicago$tmpd,0,3)
pm10<-lag.sum(log(chicago$pm10median+40),0,3)
so2<-lag.sum(log(chicago$so2median+10),0,)
I don't know what is the script (Bold font ) used for......
and it shows "Error: unexpected numeric constant in "lag.sum<-
function(a,10"
", why?
anyone can answer me?
--
View this message in context:
http://r.789695.n4.nabble.com/please-help-for-mgcv-package-tp3614485p3614485.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
David Winsemius, MD
West Hartford, CT
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
