Adds RMSE as models summary to print method

DESCRIPTION

@@ -47,6 +47,7 @@ Depends:
     ggplot2
 Imports:
     stats,
+    utils,
     methods,
     tidyr,
     proxy

NAMESPACE

@@ -12,7 +12,9 @@ importFrom(methods,as)
 importFrom(proxy,dist)
 importFrom(stats,model.frame)
 importFrom(stats,predict)
+importFrom(stats,resid)
 importFrom(tidyr,nest)
 importFrom(tidyr,pivot_longer)
 importFrom(tidyr,pivot_wider)
 importFrom(tidyr,unnest)
+importFrom(utils,methods)

R/train.R

@@ -247,11 +247,14 @@ print.twdtw_knn1 <- function(x, ...) {
   print(x$call)
 
   # Printing the smooth_fun, if available
-  cat("\nAdjusted R-squared of smooth models:\n")
+  cat("\nRoot Mean Squared Error (RMSE) of smooth models:\n")
   if(is.null(x$smooth_models)){
     print(NULL)
   } else {
-    print(sapply(x$smooth_models, function(m1) sapply(m1, function(m2) summary(m2)$adj.r.squared)))
+    print(sapply(x$smooth_models, function(m1) sapply(m1, function(m2){
+      residuals <- try(resid(m2))
+      ifelse(is.numeric(residuals), sqrt(mean(residuals^2)), NA)
+    })))
   }
 
   # Printing the data summary

R/zzz.R

@@ -2,8 +2,9 @@
 #' @import sf
 #' @import stars
 #' @import ggplot2
-#' @importFrom stats predict model.frame
+#' @importFrom stats predict model.frame resid
 #' @importFrom methods as
+#' @importFrom utils methods
 #' @importFrom tidyr pivot_longer pivot_wider nest unnest
 #' @importFrom proxy dist
 #'