wind <- NULL
wind$data <- array(rweibull(n = 100, shape = 2, scale = 6),
c(member = 5, sdate = 3, time = 214, lon = 2, lat = 5))
wind$coords <- list(lat = c(40, 41), lon = 1:5)
variable <- list(varName = 'sfcWind',
metadata = list(sfcWind = list(level = 'Surface')))
wind$attrs <- list(Variable = variable, Datasets = 'synthetic',
when = Sys.time(), Dates = '1990-01-01 00:00:00')
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)
wind$attrs$Dates <- Dates
class(wind) <- 's2dv_cube'
WCF <- CST_WindCapacityFactor(wind, IEC_class = "III",
start = list(21, 4), end = list(21, 6))
Run the code above in your browser using DataLab