exp <- NULL
exp$data <- array(rnorm(216)*200, dim = c(dataset = 1, member = 2, sdate = 3,
ftime = 9, lat = 2, lon = 2))
class(exp) <- 's2dv_cube'
TP <- CST_PeriodAccumulation(exp, time_dim = 'ftime')
exp$data <- array(rnorm(5 * 3 * 214 * 2),
c(memb = 5, sdate = 3, ftime = 214, lon = 2))
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, ftime = 214)
exp$attrs$Dates <- Dates
SprR <- CST_PeriodAccumulation(exp, start = list(21, 4), end = list(21, 6),
time_dim = 'ftime')
dim(SprR$data)
head(SprR$attrs$Dates)
HarR <- CST_PeriodAccumulation(exp, start = list(21, 8), end = list(21, 10),
time_dim = 'ftime')
dim(HarR$data)
head(HarR$attrs$Dates)
Run the code above in your browser using DataLab