swh:1:snp:9492dda1ea1583c5fa5285d6ddcd2ab9f57129b4
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
summary.threshold.r
summary.threshold <- function(object,...)
{
#object of class "threshold"
coef.table <- cbind(round(object$threshpar,5),round(object$se.thresh,5),round(confint(object),5))
dimnames(coef.table) <- list(names(object$threshpar),c("Estimate","Std. Err.",colnames(confint(object))))
cat("\n")
print(coef.table)
cat("\n")
}