test_func <- function(param = 0.1, n = 100, x1 = 1, x2 = 2) {
data <- rnorm(n, mean = param) + x1 + x2
stat <- mean(data)
stat_2 <- var(data)
if (x2 == 5) {
stop("x2 can't be 5!")
}
return(list(mean = stat, var = stat_2))
}
param_list <- list(
param = seq(from = 0, to = 1, by = 0.5),
x1 = 1:2
)
test_mc <- future_mc(
fun = test_func,
repetitions = 1000,
param_list = param_list,
n = 10,
x2 = 2
)
tidy_mc_latex(summary(test_mc))
set.seed(101)
tidy_mc_latex(
summary(test_mc),
repetitions_set = c(10, 1000),
which_out = "mean",
kable_options = list(caption = "Mean MCS results")
)
Run the code above in your browser using DataLab