if (FALSE) {
list_simulated <- binaryRL::simulate_list(
data = binaryRL::Mason_2024_G2,
obj_func = binaryRL::RSTD,
n_params = 3,
n_trials = 360,
rfun = list(
etan = function() { stats::runif(n = 1, min = 0, max = 1) },
etap = function() { stats::runif(n = 1, min = 0, max = 1) },
tau = function() { stats::rexp(n = 1, rate = 1) }
),
iteration = 10
)
}
Run the code above in your browser using DataLab