R/summary.rrs.R

Defines functions summary.rrs

Documented in summary.rrs

#' @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)
}
    

Try the sparr package in your browser

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

sparr documentation built on Sept. 11, 2024, 7:17 p.m.