Displaying 1 result from an estimated 1 matches for "pflc".
Did you mean:
pfc
2011 Aug 15
0
Indexing Permutation Values
...2$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 + pfrc * pR
# What's the new belief given observation
posteriorL <- pflc * pL/denom
posteriorR <- 1-posteriorL
pL <- posteriorL
pR <- posterio...