search for: certstat

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 +...