swh:1:snp:9492dda1ea1583c5fa5285d6ddcd2ab9f57129b4
Tip revision: d08460987ea51cdf020292a03d490b7d80b8e579 authored by Patrick Mair on 24 October 2007, 00:00:00 UTC
version 0.9-5
version 0.9-5
Tip revision: d084609
print.eRm.R
`print.eRm` <-
function(x,...) { #print method for all models
cat("\n")
cat("Results of", x$model, "estimation: \n")
cat("\n")
cat("Call: ", deparse(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("Basic Parameters eta:") #eta parameters
cat("\n")
etapar <- x$etapar
#nameeta <- paste("eta",1:dim(x$W)[2])
se <- x$se.eta
result <- rbind(etapar, se)
#colnames(result) <- nameeta
rownames(result) <- c("Estimate", "Std.Err")
print(result)
cat("\n\n")
}