search for: time_for_graph

...contrast<-array(c(1, -1, -1, 1), dim=c(2,2)) # Value Matrix; three possible states of the world value<-array(c(1,0, 0, 1, .5,.5), dim=c(2, 3)) # Feedback Matrix feedback<-array(c(1, .5, .5, 1), dim=c(2,2)) # Time t<- array(0, dim=c(1,1)) # Arrays to keep track of history for graphing time_for_graph<-array(t, dim=c(1,1)) preference_for_graph<-array(preference, dim=c(1,2)) # Moving through time until preference crosses the threshold theta while (preference[1]<theta && preference[2]<theta) { #stochastic weights for this time period weight<-rnorm(3,0,1) #updating...