R/print.OR.r

Defines functions print.OR

Documented in print.OR

print.OR <- function(x, ...){


if(x$mar2 %in% x$bl){

es <- format(x$res, digits = 3, trim=TRUE)

cat("\nOdds ratio with ",(1-x$prob.lev)*100,"% interval:\n\n",sep="")

cat(es[2]," (",es[1],",",es[3],")\n\n",sep="")

}


if( !(x$mar2 %in% x$bl) && x$type != "naive"){

es <- format(x$Ratios, digits = 3, trim=TRUE)

#cat("\nOdd ratios with ",(1-x$prob.lev)*100,"% intervals:\n\n",sep="")

cat("\n")
print(es)
cat("\n")

}


invisible(x)

}

Try the SemiParBIVProbit package in your browser

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

SemiParBIVProbit documentation built on June 20, 2017, 9:03 a.m.