Merge pull request #65 from AQLT/develop

rjdverse · Sep 30, 2024 · 1874c84 · 1874c84
2 parents 146ab5f + 0312ef1
commit 1874c84
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 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
@@ -131,6 +131,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"))