%%R -o units -o label -o expectation_max_construction_values_for_matrix -o moments100_max_construction_values_for_matrix -o cdf100_max_construction_values_for_matrix
construction_fun_R <- function(x) {
    return(generate_coal_timeinhom_graph_R(x))
}
construction_fun <- function(x) {
    return(generate_coal_timeinhom_graph(x))
}
units <- "samples"
label <- "coal_timeinhom"
# construction_values <- seq(4, 48, 2)
construction_values <- seq(4, 20, 2)
max_construction_values_for_R <- 32
max_construction_values_for_matrix <- 30
# expectation_construction_values <- seq(4, 36, 2)
expectation_construction_values <- seq(4, 20, 2)
expectation_max_construction_values_for_matrix <- 24
# moments100_construction_values <- seq(4, 38, 2)
moments100_construction_values <- seq(4, 20, 2)
moments100_max_construction_values_for_matrix <- 20
# cdf100_construction_values <- seq(4, 30, 2)
cdf100_construction_values <- seq(4, 20, 2)
cdf100_max_construction_values_for_matrix <- 18