small bug fix in Xp generation for trend_formulae

nicholasjclark · Apr 3, 2024 · 75c5ba4 · 75c5ba4
1 parent 30b6ad9
commit 75c5ba4
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/get_linear_predictors.R b/R/get_linear_predictors.R
@@ -82,9 +82,9 @@ trend_Xp_matrix = function(newdata, trend_map, series = 'all',
 
   trend_test <- newdata
   trend_indicators <- vector(length = length(trend_test$time))
-  for(i in 1:length(trend_test$time)){
-    trend_indicators[i] <- trend_map$trend[which(trend_map$series ==
-                                                   trend_test$series[i])]
+  for(i in 1:length(trend_test$series)){
+    trend_indicators[i] <- trend_map$trend[which(as.character(trend_map$series) ==
+                                                   as.character(trend_test$series[i]))]
   }
   trend_indicators <- as.factor(paste0('trend', trend_indicators))
   trend_test$series <- trend_indicators

diff --git a/src/mvgam.dll b/src/mvgam.dll
diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf