#' @title myci
#'
#' @param x
#'
#' @return Returns 95% confidence interval.
#' @export
#'
#' @examples
myci<- function(x){
n<-length(x)
std <- sd(x)
t<-qt(1-0.05/2,n-1)
mp <- c(-1,1)
mean(x)+ mp*t*std/sqrt(n)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.