R/print.tpopt.R

Defines functions print.tpopt

Documented in print.tpopt

print.tpopt <- function(x, ...)
{
    res <- x
    cat("\n###############################################################################\n")
    cat("Models:\n")
    print(res$eta)
    cat("Fixed parameters:\n")
    print(res$theta.fix)
    cat("\n###############################################################################\n")
    cat("Design:\n")
    print(rbind(x = res$x, w = res$w))
    cat("\n###############################################################################\n")
}

Try the rodd package in your browser

Any scripts or data that you put into this service are public.

rodd documentation built on May 29, 2017, 9:42 p.m.