omega2omega: Set process relaitve starting-point equal

Description

Setting multiple process relaitve starting-points (omega/w) equal. One of the process relaitve starting-points will be estimated and the other named relaitve starting-points will be set to equal the former. The equality can be removed by only using one name of a process.

Usage

omega2omega(model, names, keep_consts = FALSE)
set_omegas_equal(model, names, keep_consts = FALSE)
set_w_equal(model, names, keep_consts = FALSE)
w2w(model, names, keep_consts = FALSE)

Value

A list of the class drtmpt_model.

Arguments

model

A list of the class drtmpt_model.

names

Character vector giving the names of the processes for which the process relaitve starting-points should be equal. If length(names) = 1 then the corresponding process relaitve starting-point will be estimated (i.e., it will be set to NA)

keep_consts

Can be one of the following

logical value: FALSE (default) means none of the constants for names in the model will be kept; The relaitve starting-points of the reference process (i.e., first of names in alphabetical order) will be set to NA (i.e., will be estimated) and the others will be set to the name of the reference process (i.e., will be set to equal the reference process relative starting-point). TRUE means the constant of the reference process relaitve starting-point (if specified) is used for all other processes.
numeric value: index for names. If 1, the constant of the first process in names (in original order defined by the user) is used for all other relaitve starting-points of the processes in names. If 2, the constant of the second process is used. And so on.

Author

Raphael Hartmann

Examples

Run this code

####################################################################################
# Detect-Guess variant of the Two-High Threshold model.
# The encoding and motor execution times are assumed to be equal for each category.
# The process relaitve starting-points for both detection processes ("do" and "dn")
# will be set equal.
####################################################################################

mdl_2HTM <- "
# targets
do+(1-do)*g
(1-do)*(1-g)

# lures
(1-dn)*g
dn+(1-dn)*(1-g)

# do: detect old; dn: detect new; g: guess
"

model <- to_drtmpt_model(mdl_file = mdl_2HTM)

## make do = dn
new_model <- omega2omega(model = model, names = c("do", "dn"))
new_model


## make do = dn
new_model <- set_omegas_equal(model = model, names = c("do", "dn"))
new_model

## make do = dn
new_model <- set_w_equal(model = model, names = c("do", "dn"))
new_model

## make do = dn
new_model <- w2w(model = model, names = c("do", "dn"))
new_model