Displaying 1 result from an estimated 1 matches for "pds_dropdat".
Did you mean:
pds_dropdates
2011 Apr 22
1
Paste problem when looping variable assignments
...lpeaksWY<-WY[partialpeakind]
for(q in 1:length(partialpeaksWY)){
wyrs<-seq(min(partialpeaksWY),max(partialpeaksWY),by=1)
POTWY[[q]]<-sum(partialpeaksWY == wyrs[q])
POTWY_cut<-as.numeric(na.omit(POTWY))
paste(pds_gagehandles[[i]],"_pdswy",sep="")<-POTWY_cut}
pds_dropdates<-data.frame(partialpeaksWY,partialpeaksd,partialpeaksq)
write.table(pds_dropdates,file=paste(pds_gagehandles[i],"_dropdates.txt",sep=""))
write.table(data.frame(wyrs,POTWY_cut),file=paste(pds_gagehandles[i],"_POTWY.txt",sep=""))
}
--
View this message...