R/mean.R

In chamsae14/pkgexample: SKKU biohrs Example

#' @title Mean with NA value
#' @description Na omit
#' @param x x Vactor
#' @return Mean
#' @details dsdddas
#' @examples 
#' \dontrun{
#' if(interactive()){
#'  mean0(c(1,2,3,NA))
#'  }
#' }
#' @rdname mean0
#' @export 

mean0 <- function(x){
  mean(x, na.rm=T)
}