From 31178d351f7f9e78e99206b5220fce8adccf9c53 Mon Sep 17 00:00:00 2001 From: Eva Rifa Date: Thu, 18 May 2023 16:44:04 +0200 Subject: [PATCH] Small fix to units attributes for new s2dv_cube --- inst/doc/paper-figure-PlotForecastPDF.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/inst/doc/paper-figure-PlotForecastPDF.R b/inst/doc/paper-figure-PlotForecastPDF.R index b8867a6..bebc497 100644 --- a/inst/doc/paper-figure-PlotForecastPDF.R +++ b/inst/doc/paper-figure-PlotForecastPDF.R @@ -34,9 +34,9 @@ c(hcst, hcst_ref) %<-% CST_Load(var = 'prlr', leadtimemin = 1, leadtimemax = 214, nmember = 25, output = "lonlat") hcst$data <- hcst$data * 3600 * 24 * 1000 -attributes(hcst$attrs$Variable)$units <- 'mm' +hcst$attrs$Variable$metadata$prlr$units <- 'mm' hcst_ref$data <- hcst_ref$data * 3600 * 24 * 1000 -attributes(hcst_ref$attrs$Variable)$units <- 'mm' +hcst_ref$attrs$Variable$metadata$prlr$units <- 'mm' c(fcst, obs) %<-% CST_Load(var = 'prlr', @@ -49,9 +49,9 @@ c(fcst, obs) %<-% CST_Load(var = 'prlr', leadtimemin = 1, leadtimemax = 214, nmember = 50, output = "lonlat") fcst$data <- fcst$data * 1000 * 3600 * 24 -attributes(fcst$attrs$Variable)$units <- 'mm' +fcst$attrs$Variable$metadata$prlr$units <- 'mm' obs$data <- obs$data * 1000 * 3600 * 24 -attributes(obs$attrs$Variable)$units <- 'mm' +obs$attrs$Variable$metadata$prlr$units <- 'mm' fcst_QM <- CST_QuantileMapping(exp = hcst, -- GitLab