R/print.OR.r

In KironmoyDas/KD-STAT0035-GMupdate: Generalised Joint Regression Modelling

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)

}