#' Calculate standard deviation or standard errors
#'
#' Calculate standard deviation or standard errors from a numerical vector.
#'
#' @param x a numerical vector
#' @param error.type method used to calculate data error. Options include "sd" for standard deviation and "stderr" for standard error.
#'
#' @return data error
#' @seealso \code{\link{sd}}
#'
#' @examples
#'
#' set.seed(2000)
#' x=rnorm(1000,mean=0,sd=1)
#' ##standard error
#' data.error(x,error.type = 'stderr')
#' ##standard deviation
#' data.error(x,error.type = 'sd')
#'
#' @export
#'
data.error<-function(x,error.type='stderr') {
if(error.type=='stderr')
error<-sqrt(var(x,na.rm=TRUE)/length(na.omit(x)))
if(error.type=='sd')
error<-sd(na.omit(x))
return(error)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.