#' This function takes in a vector and outputs the 95\% confidence interval of the sample mean.
#'
#' @param data A 1D vector of numbers. Non-numerical values result in an error.
#' @return A 2-element 1D vector indicating the start and end of the 95\% confidence interval.
#' @export
conf_int <- function (data){
# Check if input is empty
if (length(data) == 0){
stop("Empty vector")
}
# Check if input is logical
if (any(is.logical(data))){
stop("Invalid data type")
}
# Check if input is a string/character
if (is.character(data)){
stop("Invalid data type")
}
# Check if input has NA values
if (sum(is.na(data)) > 0){
stop("NA values present")
}
mean <- mean(data)
sd <- sd(data)
n <- length(data)
lower <- round((mean - (1.96*(sd/sqrt(n)))),2)
upper <- round((mean + (1.96*(sd/sqrt(n)))),2)
conf <- c(lower, upper)
return(conf)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.