Revision a300fe2b8c94aa973f39d050e5d9ddf04f609e1a authored by M. Helena Gon\xe7alves on 17 February 2013, 00:00:00 UTC, committed by Gabor Csardi on 17 February 2013, 00:00:00 UTC 
None
1 parent e9f9bbd
Raw File
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")
	})
back to top