1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#' @rdname summarysparr
#' @method summary rrs
#' @export
summary.rrs <- function(object, ...){
if(all(object$rr>=0)) cat("Relative Risk Function.\n\n")
else cat("Log-Relative Risk Function.\n\n")
if(!all(object$rr>=0)) cat("Estimated risk range [",min(object$rr,na.rm=T),", ",max(object$rr,na.rm=T),"]\n",sep="")
else cat("Estimated log-risk range\n [",min(object$rr,na.rm=T),",",max(object$rr,na.rm=T),"]\n",sep="")
cat("\n--Numerator (case) density--\n")
summary.bivden(object$f)
cat("\n--Denominator (control) density--\n")
summary.bivden(object$g)
}
|
