search for: pdmean

...,30,30,30) td<-c(0.015,0.012,NA,0.015,NA,0.014,0.014,0.013,0.013,0.013,0.013,NA,0.010,0.013,0.015,0.011,0.014,0.014,0.014,0.014,0.016) pd<-c(0,0,NA,80,NA,45,223,228,224,488,525,NA,80,417,413,373,914,213,651,521,979) x<-data.frame(week,td,pd) x pmean<- tapply(x[,3], x$week, mean) pdmean pdmean<- data.frame(pmean) pdmean xweek <- aggregate(x, list(x$week), mean) xweek Felipe D. Carrillo Fishery Biologist Department of the Interior US Fish & Wildlife Service California, USA ________________________________________________________________________...