binaryRL (version 0.9.0)

Utility: Model: Utility

Description

$$U(R) = {R}^{\gamma}$$ $$V_{new} = V_{old} + \eta \cdot (U(R) - V_{old})$$

Usage

Utility(params)

Value

[numeric] algorithm packages accept only one return

Arguments

params

[vector] algorithm packages accept only one argument

Examples

if (FALSE) {
Utility <- function(params){

  res <- binaryRL::run_m(
    data = data,
    id = id,
    eta = c(params[1]),
    gamma = c(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)
}
}