https://github.com/cran/eRm
Tip revision: 453534604193145d7719a4267a0c53946f5c553b authored by Patrick Mair on 06 December 2013, 00:00:00 UTC
version 0.15-3
version 0.15-3
Tip revision: 4535346
print.summary.llra.R
print.summary.llra <- function(x,...)
{
cat("\n")
cat("Results of LLRA via",x$model,"estimation: \n")
cat("\n")
cat("Call: ", x$call, "\n")
cat("\n")
cat("Conditional log-likelihood:", x$loglik, "\n")
cat("Number of iterations:", x$iter, "\n")
cat("Number of parameters:", x$npar, "\n")
cat("\n")
cat("Estimated parameters ")
cat("with 0.95 CI:\n")
coeftable <- as.data.frame(cbind(round(x$etapar, 3),round(x$se.eta, 3), round(x$ci, 3)))
colnames(coeftable) <- c("Estimate", "Std.Error", "lower.CI", "upper.CI")
rownames(coeftable) <- names(x$etapar)
print(coeftable)
cat("\nReference Group: ",x$refGroup,"\n")
}