data <- array(rnorm(5 * 3 * 214 * 2),
c(member = 5, sdate = 3, time = 214, latitude = 2))
lat <- c(40, 35)
Dates <- c(seq(as.Date("01-05-2000", format = "%d-%m-%Y"),
as.Date("30-11-2000", format = "%d-%m-%Y"), by = 'day'),
seq(as.Date("01-05-2001", format = "%d-%m-%Y"),
as.Date("30-11-2001", format = "%d-%m-%Y"), by = 'day'),
seq(as.Date("01-05-2002", format = "%d-%m-%Y"),
as.Date("30-11-2002", format = "%d-%m-%Y"), by = 'day'))
dim(Dates) <- c(sdate = 3, time = 214)
# Compute daylength for all dates
DL <- DayLength(data, lat = lat, dates = Dates)
# Compute daylength for summer period only
DL_summer <- DayLength(data, lat = lat, dates = Dates,
start = list(21, 6), end = list(21, 9))
# Compute mean daylength over time
DL_mean <- DayLength(data, lat = lat, dates = Dates, fun = mean)
Run the code above in your browser using DataLab