set.seed(42)
x <- rnorm(1000, 3, 4)
mean(x)
sd(x) / sqrt(length(x)) # standard error
mean_se(x)
mean_se(x, show_n = "always")
mean_se(x, show_n = "always", denote_sd = "paren")
x[187] <- NA
mean_se(x, na_rm = TRUE)
Run the code above in your browser using DataLab