swh:1:snp:9492dda1ea1583c5fa5285d6ddcd2ab9f57129b4
Tip revision: 6b524f3badc4f0282fc93015ab6670ca08cb76c2 authored by Patrick Mair on 12 November 2015, 19:12:35 UTC
version 0.15-6
version 0.15-6
Tip revision: 6b524f3
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")
}