Commit 30f52f66 authored by aho's avatar aho
Browse files

Fix example

parent bfc11bc4
Pipeline #5739 failed with stage
in 8 minutes and 14 seconds
......@@ -40,17 +40,16 @@
#'# Load sample data as in Load() example:
#'example(Load)
#'rsdrms <- RatioSDRMS(sampleData$mod, sampleData$obs)
#'#============Fix the code below when PlotVsLTime is included============
#'## Reorder the data in order to plot it with PlotVsLTime
#'#rsdrms_plot <- array(dim = c(dim(rsdrms)[1:2], 4, dim(rsdrms)[4]))
#'#rsdrms_plot[, , 2, ] <- rsdrms[, , 1, ]
#'#rsdrms_plot[, , 4, ] <- rsdrms[, , 2, ]
#'#\donttest{
#'#PlotVsLTime(rsdrms_plot, toptitle = "Ratio ensemble spread / RMSE", ytitle = "",
#'# monini = 11, limits = c(-1, 1.3), listexp = c('CMIP5 IC3'),
#'# listobs = c('ERSST'), biglab = FALSE, siglev = TRUE,
#'# fileout = 'tos_rsdrms.eps')
#'#}
#'# Reorder the data in order to plot it with PlotVsLTime
#'rsdrms_plot <- array(dim = c(dim(rsdrms)[1:2], 4, dim(rsdrms)[4]))
#'rsdrms_plot[, , 2, ] <- rsdrms[, , 1, ]
#'rsdrms_plot[, , 4, ] <- rsdrms[, , 2, ]
#'\donttest{
#'PlotVsLTime(rsdrms_plot, toptitle = "Ratio ensemble spread / RMSE", ytitle = "",
#' monini = 11, limits = c(-1, 1.3), listexp = c('CMIP5 IC3'),
#' listobs = c('ERSST'), biglab = FALSE, siglev = TRUE,
#' fileout = 'tos_rsdrms.eps')
#'}
#'
#'@import multiApply
#'@export
......
......@@ -63,16 +63,15 @@ Fischer test.
# Load sample data as in Load() example:
example(Load)
rsdrms <- RatioSDRMS(sampleData$mod, sampleData$obs)
#============Fix the code below when PlotVsLTime is included============
## Reorder the data in order to plot it with PlotVsLTime
#rsdrms_plot <- array(dim = c(dim(rsdrms)[1:2], 4, dim(rsdrms)[4]))
#rsdrms_plot[, , 2, ] <- rsdrms[, , 1, ]
#rsdrms_plot[, , 4, ] <- rsdrms[, , 2, ]
#\donttest{
#PlotVsLTime(rsdrms_plot, toptitle = "Ratio ensemble spread / RMSE", ytitle = "",
# monini = 11, limits = c(-1, 1.3), listexp = c('CMIP5 IC3'),
# listobs = c('ERSST'), biglab = FALSE, siglev = TRUE,
# fileout = 'tos_rsdrms.eps')
#}
# Reorder the data in order to plot it with PlotVsLTime
rsdrms_plot <- array(dim = c(dim(rsdrms)[1:2], 4, dim(rsdrms)[4]))
rsdrms_plot[, , 2, ] <- rsdrms[, , 1, ]
rsdrms_plot[, , 4, ] <- rsdrms[, , 2, ]
\donttest{
PlotVsLTime(rsdrms_plot, toptitle = "Ratio ensemble spread / RMSE", ytitle = "",
monini = 11, limits = c(-1, 1.3), listexp = c('CMIP5 IC3'),
listobs = c('ERSST'), biglab = FALSE, siglev = TRUE,
fileout = 'tos_rsdrms.eps')
}
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment