if (FALSE) {
list_simulated <- binaryRL::simulate_list(
data = binaryRL::Mason_2024_Exp2,
obj_func = binaryRL::RSTD,
n_params = 3,
n_trials = 360,
lower = c(0, 0, 1),
upper = c(1, 1, 1),
iteration = 100
)
df_recovery <- binaryRL::recovery_data(
list = list_simulated,
fit_model = binaryRL::RSTD,
model_name = "RSTD",
n_params = 3,
n_trials = 360,
lower = c(0, 0, 1),
upper = c(1, 1, 5),
iteration = 100,
nc = 1,
algorithm = "L-BFGS-B"
)
}
Run the code above in your browser using DataLab