#' Compute confidence interval from normal distribution
#' @param vec Numeric vector from which confidence interval will be derived
#' @param level Numeric of the confidence level in decimal format
#' @export
confidence_interval_from_normal_distribution = function(vec,level=0.95){
z = z_score_for_standard_normal_where_area_is_equally_split_from_mean(area=level)
m = mean(vec)
st.dev = sd(vec)
n = length(vec)
err = z*st.dev/sqrt(n)
o = c(m - err, m + err)
names(o) = c("lower","upper")
o
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.