diff --git a/R/quicktexregapollo.R b/R/quicktexregapollo.R index dc492836234aeb707a46745ef1c36f45fb998811..740fb75303ce883a6dc0beb8bcc0d8363cf26dd5 100644 --- a/R/quicktexregapollo.R +++ b/R/quicktexregapollo.R @@ -54,7 +54,8 @@ quicktexregapollo <- function(model = model, wtpest = NULL, se="rob") { } - + coefnames <- 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]] ) ,