Minor bug fix in analogs

SantanderMetGroup · Dec 27, 2014 · ad09d15 · ad09d15
1 parent e4fefe8
commit ad09d15
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/analogs.R b/R/analogs.R
@@ -81,9 +81,9 @@ analogs <- function(obs, pred, sim, n.neigh = 1, sel.fun = c("random", "mean"),
       # Analog dates
       if (isTRUE(analog.dates)) {
             analog.date.list <- lapply(1:length(d.list), function(x) obs$Dates$start[d.list[[x]]])
+            attr(obs, "analog.dates") <- analog.date.list
+            analog.date.list <- NULL
       }
-      attr(obs, "analog.dates") <- analog.date.list
-      analog.date.list <- NULL
       # Analog assignation
       if (isTRUE(modelPars$stations)) {
             if (n.neigh > 1) {