Improve support for rqs (#839)

* Improve support for rqs * fix test
easystats · Dec 23, 2023 · 4ffc6fb · 4ffc6fb
1 parent cfadb8f
commit 4ffc6fb
Show file tree

Hide file tree

Showing 10 changed files with 157 additions and 63 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 0.19.7.5
+Version: 0.19.7.6
 Authors@R: 
     c(person(given = "Daniel",
              family = "Lüdecke",

diff --git a/NAMESPACE b/NAMESPACE
@@ -69,6 +69,7 @@ S3method(find_algorithm,mixed)
 S3method(find_algorithm,nestedLogit)
 S3method(find_algorithm,rlmerMod)
 S3method(find_algorithm,rq)
+S3method(find_algorithm,rqs)
 S3method(find_algorithm,rqss)
 S3method(find_algorithm,scam)
 S3method(find_algorithm,speedglm)
@@ -1118,6 +1119,7 @@ S3method(link_function,psm)
 S3method(link_function,riskRegression)
 S3method(link_function,robmixglm)
 S3method(link_function,rq)
+S3method(link_function,rqs)
 S3method(link_function,rqss)
 S3method(link_function,speedglm)
 S3method(link_function,speedlm)
@@ -1241,6 +1243,7 @@ S3method(link_inverse,psm)
 S3method(link_inverse,riskRegression)
 S3method(link_inverse,robmixglm)
 S3method(link_inverse,rq)
+S3method(link_inverse,rqs)
 S3method(link_inverse,rqss)
 S3method(link_inverse,speedglm)
 S3method(link_inverse,speedlm)
@@ -1389,6 +1392,7 @@ S3method(model_info,riskRegression)
 S3method(model_info,rma)
 S3method(model_info,robmixglm)
 S3method(model_info,rq)
+S3method(model_info,rqs)
 S3method(model_info,rqss)
 S3method(model_info,speedglm)
 S3method(model_info,speedlm)
@@ -1500,6 +1504,7 @@ S3method(n_obs,poissonmfx)
 S3method(n_obs,probitmfx)
 S3method(n_obs,riskRegression)
 S3method(n_obs,rq)
+S3method(n_obs,rqs)
 S3method(n_obs,rqss)
 S3method(n_obs,selection)
 S3method(n_obs,sem)

diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,8 @@
 
 * Removed deprecated arguments in `get_data.mmrm()`.
 
+* Improved support for models of class `rqs` (package *quantreg*).
+
 ## Bug fixes
 
 * Fixed issue in `get_loglikelihood()` for glm-models with binary outcome, where

diff --git a/R/find_algorithm.R b/R/find_algorithm.R
@@ -192,6 +192,12 @@ find_algorithm.rq <- function(x, ...) {
   list(algorithm = x$method)
 }
 
+#' @export
+find_algorithm.rqs <- find_algorithm.rq
+
+#' @export
+find_algorithm.rqss <- find_algorithm.rq
+
 
 #' @export
 find_algorithm.bayesx <- function(x, ...) {
@@ -209,12 +215,6 @@ find_algorithm.crq <- function(x, ...) {
 }
 
 
-#' @export
-find_algorithm.rqss <- function(x, ...) {
-  list(algorithm = x$method)
-}
-
-
 #' @export
 find_algorithm.glm <- function(x, ...) {
   list(algorithm = "ML")

diff --git a/R/link_function.R b/R/link_function.R
@@ -111,6 +111,9 @@ link_function.gls <- link_function.lm
 #' @export
 link_function.rq <- link_function.lm
 
+#' @export
+link_function.rqs <- link_function.lm
+
 #' @export
 link_function.rqss <- link_function.lm
 

diff --git a/R/link_inverse.R b/R/link_inverse.R
@@ -147,6 +147,9 @@ link_inverse.lme <- link_inverse.lm
 #' @export
 link_inverse.rq <- link_inverse.lm
 
+#' @export
+link_inverse.rqs <- link_inverse.lm
+
 #' @export
 link_inverse.rqss <- link_inverse.lm
 

diff --git a/R/model_info.R b/R/model_info.R
@@ -205,6 +205,9 @@ model_info.bayesx <- model_info.maxLik
 #' @export
 model_info.rq <- model_info.maxLik
 
+#' @export
+model_info.rqs <- model_info.maxLik
+
 #' @export
 model_info.crq <- model_info.maxLik