From ad09d15635ebbc9cca50e2b7ac9f2d12bffa1e6e Mon Sep 17 00:00:00 2001
From: jbedia <joaquin.bedia@gmail.com>
Date: Sat, 27 Dec 2014 19:03:55 +0100
Subject: [PATCH] Minor bug fix in analogs

---
 R/analogs.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/analogs.R b/R/analogs.R
index 2eb616a4..73de52b1 100644
--- 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) {