# Load example posterior simulation output
post_output_path <- system.file(
"extdata", "rdm_minimal", "abc", "posterior", "neuralnet",
package = "eam"
)
post_output <- load_simulation_output(post_output_path)
# Load example observed data
obs_file <- system.file(
"extdata", "rdm_minimal", "observation", "observation_data.csv",
package = "eam"
)
obs_df <- read.csv(obs_file)
# Plot RT distributions by item
plot_rt(post_output, obs_df, facet_x = c("item_idx"))
# Plot RT distributions by item and group
plot_rt(
post_output,
obs_df,
facet_x = c("item_idx"),
facet_y = c("group")
)
Run the code above in your browser using DataLab