Displaying 1 result from an estimated 1 matches for "partialpeakind".
2011 Apr 22
1
Paste problem when looping variable assignments
...ot;"))
q<-get(paste(pds_gagehandles[i],"_pds_rawq",sep=""))
yr<-as.numeric(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...