RSTD {binaryRL} | R Documentation |
Model: RSTD
Description
V_{new} = V_{old} + \eta_{+} \cdot (R - V_{old}), R > V_{old}
V_{new} = V_{old} + \eta_{-} \cdot (R - V_{old}), R < V_{old}
Usage
RSTD(params)
Arguments
params |
[vector] algorithm packages accept only one argument |
Value
[numeric] algorithm packages accept only one return
Examples
## Not run:
RSTD <- function(params){
res <- binaryRL::run_m(
data = data,
id = id,
eta = c(params[1], params[2]),
tau = c(params[3]),
n_params = n_params,
n_trials = n_trials,
mode = mode
)
assign(x = "binaryRL.res", value = res, envir = binaryRL.env)
switch(mode, "fit" = -res$ll, "simulate" = res, "replay" = res)
}
## End(Not run)
[Package binaryRL version 0.9.0 Index]