# Basic simulation with default parameters
if (requireNamespace("ggdmcModel", quietly = TRUE)) {
BuildModel <- getFromNamespace("BuildModel", "ggdmcModel")
model <- ggdmcModel::BuildModel(
p_map = list(
a = "1", v = "1", z = "1", d = "1", sz = "1", sv = "1",
t0 = "1", st0 = "1", s = "1", precision = "1"
),
match_map = list(M = list(s1 = "r1", s2 = "r2")),
factors = list(S = c("s1", "s2")),
constants = c(d = 0, s = 1, st0 = 0, sv = 0, precision = 3),
accumulators = c("r1", "r2"),
type = "fastdm"
)
}
sub_model <- setDDM(model)
p_vector <- c(a = 1, sz = 0.25, t0 = 0.15, v = 2.5, z = .38)
time_parameters <- c(t_min = -0.5, tmax = 0.5, dt = 0.01)
# Simulation with custom time parameters
sim_data <- simulate_ddm_trials(
rt_model_r = sub_model,
parameters_r = p_vector,
time_parameters_r = time_parameters,
n_trial = 32
)
Run the code above in your browser using DataLab