# Example 1: A single mean value
sample <- rnorm(1000, mean = 0, sd = 1)
mean <- mean(sample)
custom_stat(name = "mean", value = mean, symbol = "M")
# Example 2: A mean with a 95% confidence interval
sample <- rnorm(1000, mean = 0, sd = 1)
mean <- mean(sample)
se <- sd(sample) / sqrt(length(sample))
CI <- c(mean - 1.96 * se, mean + 1.96 * se)
custom_stat(
name = "mean",
value = mean,
symbol = "M",
interval = "CI",
level = .95,
lower = CI[1],
upper = CI[2]
)
Run the code above in your browser using DataLab