search for: partialpeaksq

Displaying 1 result from an estimated 1 matches for "partialpeaksq".

Did you mean: partialpeaksd
2011 Apr 22
1
Paste problem when looping variable assignments
...umeric(strftime(dates,format='%Y')) mo<-as.numeric(strftime(dates,format='%m')) len<-length(yr) for(n in 1:len){ WY[n]<-if(mo[n]>=10){ yr[n]+1 }else{ yr[n]} } partialpeakind<-which(round(q,2)>=round(pds_TD[i],2)) partialpeaksd<-dates[partialpeakind] partialpeaksq<-q[partialpeakind] partialpeaksWY<-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=&...