Nothing
#' @title Check confidence (of confidence interval) is between zero and a
#' hundred
#'
#' @description Function that verifies \code{confidence} level selected is > 0
#' and < 100
#'
#' @param confidence Confidence level desired with \code{0 < confidence <
#' 100}
#'
#' @return TRUE if \code{confidence} is well defined between \code{0} and \code{100}
#'
#' @examples
#' #Example 1
#' confidence <- 95
#' check.confidence(confidence)
#'
#' @author Rodrigo Zepeda-Tello \email{rzepeda17@gmail.com}
#' @author Dalia Camacho-GarcĂa-FormentĂ \email{daliaf172@gmail.com}
#'
#' @seealso \code{\link{check.thetas}}, \code{\link{check.xvar}},
#' \code{\link{check.cft}}, \code{\link{check.rr}},
#' \code{\link{check.exposure}}, \code{\link{check.integrals}}
#'
#' @keywords internal
#'
#' @export
check.confidence <- function(confidence){
#Boolean variable = 1
bool <- TRUE
#Check condition
if(confidence <= 0 || confidence >= 100){
bool <- FALSE
stop("Confidence level incorrectly specified")
}
return(bool)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.