Displaying 1 result from an estimated 1 matches for "ppt3".
Did you mean:
ppt
2011 Jul 27
2
for loop help
...t <- dat2 #precipiation data
#### station's missing zero years ###
ppt2 <- matrix(ppt[,which(stnid == '140365')],ncol=1)
year2 <- year[which(stnid == '140365')]
year2 <- year2[which(duplicated(year2) == FALSE)]
month2 <- month[which(stnid == '140365')]
ppt3 <- matrix(ppt[,which(stnid == '140405')],ncol=1)
year3 <- year[which(stnid == '140405')]
year3 <- year3[which(duplicated(year3) == FALSE)]
month3 <- month[which(stnid == '140405')]