# NOT RUN {
# }
# NOT RUN {
sdates_out <- c('19901101', '19911101', '19921101', '19931101', '19941101')
leadtimes_per_startdate <- 12
exp_data <- Histo2Hindcast(sampleData$mod, startDates,
sdates_out, leadtimes_per_startdate)
obs_data <- Histo2Hindcast(sampleData$obs, startDates,
sdates_out, leadtimes_per_startdate)
# }
# NOT RUN {
exp_data <- Reorder(exp_data, c(3, 4, 1, 2))
obs_data <- Reorder(obs_data, c(3, 4, 1, 2))
PlotAno(exp_data, obs_data, sdates_out,
toptitle = paste('Anomalies reorganized into shorter chunks'),
ytitle = 'K', fileout = NULL)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab