Merge branch 'develop' into develop

rjdverse · Oct 4, 2024 · 2803c1f · 2803c1f
2 parents ab9846c + 1874c84
commit 2803c1f
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 2 deletions.
diff --git a/R/jd2r.R b/R/jd2r.R
@@ -14,6 +14,17 @@ NULL
   }
 }
 
+
+.jd2r_regression_item <- function(s) {
+    desc <- .jcall(s, "S", "getDescription")
+    val <- .jcall(s, "D", "getCoefficient")
+    stderr <- .jcall(s, "D", "getStdError")
+    pval <- .jcall(s, "D", "getPvalue")
+    res <- matrix(c(val, stderr, val/stderr, pval), nrow = 1)
+    colnames(res) <- c("Estimate", "Std. Error", "T-stat", "Pr(>|t|)")
+    rownames(res) <- desc
+    res
+}
 #' @export
 #' @rdname jd3_utilities
 .r2jd_tsdata<-function(s){

diff --git a/R/jd3rslts.R b/R/jd3rslts.R
@@ -132,6 +132,8 @@
         return(.jevalArray(s, silent=TRUE))
     } else if (.jinstanceof(s, "jdplus/toolkit/base/api/stats/StatisticalTest")) {
         return(.jd2r_test(s))
+    } else if (.jinstanceof(s, "jdplus/toolkit/base/api/timeseries/regression/RegressionItem")) {
+      return(.jd2r_regression_item(s))
     } else {
         return(.jcall(s, "S", "toString"))
     }

diff --git a/R/zzz.R b/R/zzz.R
@@ -22,8 +22,7 @@ NULL
   # what's your java  version?  Need >= 17
   jversion <- .jcall('java.lang.System','S','getProperty','java.version')
   if (jversion < "17") {
-    stop(paste("Your java version is ", jversion,
-               ".  N or higher.", sep=""))
+    stop(sprintf("Your java version is %s. 17 or higher is needed.", jversion))
   }
 
   proto.dir <- system.file("proto", package = pkgname)

diff --git a/inst/java/jdplus-toolkit-base-core-3.2.5-SNAPSHOT.jar b/inst/java/jdplus-toolkit-base-core-3.2.5-SNAPSHOT.jar