From cb42ab6d8f998dc439321ebef31f82768ad1abd3 Mon Sep 17 00:00:00 2001
From: Julian Sagebiel <julian.sagebiel@idiv.de>
Date: Thu, 17 Oct 2024 23:02:36 +0200
Subject: [PATCH] deleted strange line in apollotexreg which deletes the last
letter of the coefficients
---
R/quicktexregapollo.R | 9 ---------
1 file changed, 9 deletions(-)
diff --git a/R/quicktexregapollo.R b/R/quicktexregapollo.R
index 1858576..dc49283 100644
--- a/R/quicktexregapollo.R
+++ b/R/quicktexregapollo.R
@@ -17,10 +17,6 @@ quicktexregapollo <- function(model = model, wtpest = NULL, se="rob") {
stop("Invalid value for 'se'. Please use one of 'rob', 'normal', or 'bs'.")
}
- # if (!all(c("apollo", "maxLik", "maxim") %in% class(model))) {
- # stop("Invalid model class. The model must be of classes 'apollo', 'maxLik', and 'maxim'.")
- # }
-
if (se == "bs" && !"bootse" %in% names(model)) {
stop(" It seems you did not do bootstrapping. Thus, I cannot report bootstrapped se. The 'model' object must contain an element named 'bootse' when 'se' is 'bs'.")
@@ -59,11 +55,6 @@ quicktexregapollo <- function(model = model, wtpest = NULL, se="rob") {
}
-
-
-
- coefnames <- gsub(pattern = "_[a-z]$", "" ,rownames(estimated))
-
texout <- texreg::createTexreg(coef.names = coefnames , coef = estimated[["estimate"]] , se = estimated[["se"]] , pvalues = estimated$pv,
gof.names = c("No Observations" , "No Respondents" , "Log Likelihood (Null)" , "Log Likelihood (Converged)") ,
gof = c(model[["nObsTot"]] , model[["nIndivs"]], model[["LL0"]][[1]] , model[["LLout"]][[1]] ) ,
--
GitLab