Revision 10ef4410c16710d7caf8c0882b7efbac894d49ed authored by M. Helena Gonçalves on 22 September 2012, 00:00:00 UTC, committed by Gabor Csardi on 22 September 2012, 00:00:00 UTC
1 parent 3f407ee
show_summary.bild.R
setMethod("show",
signature(object = "summary.bild"),
function (object)
{
cat("\nCall:\n")
dput(object@call)
coef <- object@coefficients
nas <- is.na(coef[, 1])
cnames <- names(coef[, 1][!nas])
coef <- matrix(rep(coef[, 1][!nas], 4), ncol = 4)
coef[, 1] <- 1:dim(coef)[[1]]
coef[, 3] <- object@se[, 1][!nas]
coef[, 4] <- round(coef[, 2]/coef[, 3], 3)
dimnames(coef) <- list(cnames, c("Label", "Value", "Std. Error", "t value"))
cat("\nNumber of profiles used in the fit: ", object@n.cases, "\n")
cat("\nCoefficients:\t\n")
print(coef[ , ])
cat("\nLog likelihood: ", round(object@log.likelihood, 4),"\n")
cat("\nAIC: ", round(object@aic, 4),"\n")
cat("\nMessage: ", object@message,"\n")
})
Computing file changes ...
