https://github.com/cran/epitools
Tip revision: d0992f50faf0f80bc35a07f71404bc3567db4cf4 authored by Tomas Aragon on 09 July 2010, 00:00:00 UTC
version 0.5-6
version 0.5-6
Tip revision: d0992f5
riskratio.R
"riskratio" <-
function(x, y = NULL,
method = c("wald", "small", "boot"),
conf.level = 0.95,
rev = c("neither", "rows", "columns", "both"),
correction = FALSE,
verbose = FALSE,
replicates = 5000){
if(is.matrix(x) && !is.null(y)){stop("y argument should be NULL")}
if(is.null(y)){
x <- epitable(x, rev = rev)
} else {
x <- epitable(x, y, rev = rev)
}
method <- match.arg(method)
if(method=="wald"){
rr <- riskratio.wald(x, conf.level = conf.level,
verbose = verbose, correction = correction)
}
if(method=="small"){
rr <- riskratio.small(x, conf.level = conf.level,
verbose = verbose, correction = correction)
}
if(method=="boot"){
rr <- riskratio.boot(x, conf.level = conf.level,
replicates = replicates,
verbose = verbose, correction = correction)
}
rr
}