Displaying 1 result from an estimated 1 matches for "posteriorr".
Did you mean:
posterior
2011 Aug 15
0
Indexing Permutation Values
...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 <- posteriorR
certState = gamma * certState + (1 - gamma) * pL
thList[i] = ifelse(certState > 0.55, 1, ifelse(certState < 0.45, 0,
ifelse(pL > 0.5, 1, 0)))
}
return(thList)
}
thesum=0
j = 1
minx = 0.01; max...