Displaying 1 result from an estimated 1 matches for "certstat".
Did you mean:
certstate
2011 Aug 15
0
Indexing Permutation Values
...hresholded_test <- 0
calc.probs <- function(delta,gamma){
# initial starting probabilities
thList = 0
block = 0
# finMatrix <- 0
for (i in 1:length(dat2$choice))
{
if (dat2$RepNum[i] != block)
{
pL = 0.5
pR = 0.5
block = dat2$RepNum[i]
certState = 0.5
}
# Markov Transitions
pL <- pL*(1-delta) + pR*delta
pR <- 1-pL
# Apply feedback
#denom <- p(F|L,C) * p(L) + p(F|R,C) * p(R)
pflc <- ifelse(dat2$choice[i] == dat2$reward[i], .8, .2)
pfrc <- 1 - pflc
denom <- pflc * pL +...