type of vector is numeric

anadiedrichs · Mar 17, 2021 · d055b14 · d055b14
1 parent ad1ed53
commit d055b14
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/models.R b/R/models.R
@@ -256,7 +256,7 @@ getTrend <- function(Tmin, t2, n, plot=FALSE)
 
 buildMdz <- function(dw,tempMax,tmin)
 {
-  k = vector(mode = "logical", length = length(dw))
+  k = vector(mode = "numeric", length = length(dw))
 
   if(checkTemp(dw) && checkTemp(tempMax) && checkTemp(tmin)
      && checkLenght(dw,tmin) && checkLenght(tempMax,tmin))