# NOT RUN {
year <- 2000
paStart <- 10
paLong <- 12
vectorYear <- c(seq(1999,2001,0.1))
paIndexWaterYear <- paVector(year, paStart, paLong, vectorYear)
requestedYears <- vectorYear[paIndexWaterYear]
paStart <- 11
paLong <- 3
paIndexWinter <- paVector(year, paStart, paLong, vectorYear)
requestedWinterYears <- vectorYear[paIndexWinter]
paStart <- 6
paLong <- 3
paIndexSummer <- paVector(year, paStart, paLong, vectorYear)
requestedSummerYears <- vectorYear[paIndexSummer]
paStart <- 10
paLong <- 3
paIndexLate <- paVector(year, paStart, paLong, vectorYear)
endOfYear <- vectorYear[paIndexLate]
# }
Run the code above in your browser using DataLab