18 lines
511 B
R
18 lines
511 B
R
require("ggplot2")
|
|
filenames <- list.files(
|
|
path = "./Rcodes/simulation/data/",
|
|
pattern = "model_selection_check_batch_15mai_3_rep_",
|
|
full.names = TRUE
|
|
)
|
|
|
|
data_list <- lapply(filenames, readRDS)
|
|
result_data_frame <- dplyr::bind_rows(data_list)
|
|
|
|
ggplot(data = result_data_frame) +
|
|
aes(x = epsilon_pi, group = preferred_model, fill = preferred_model) +
|
|
geom_bar()
|
|
|
|
ggplot(data = result_data_frame) +
|
|
aes(x = epsilon_rho , group = preferred_model, fill = preferred_model) +
|
|
geom_bar()
|
|
|