# \donttest{
library(dplyr)
M <- multiverse()
inside(M, {
data <- rnorm(100, 50, 20)
x.mean <- mean(data, trim = branch(
trim_values,
"trim_none" ~ 0,
"trim_1pc" ~ 0.05,
"trim_5pc" ~ 0.025,
"trim_10pc" ~ 0.05
))
})
# Computes the analysis for all
# universes in the multiverse`
M %>%
execute_multiverse()
# }
Run the code above in your browser using DataLab