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=&...