# NOT RUN {
actrIM <- c(.46, .13, -.24, -.03, .12, .03, .39, .06, .51, .08, .24, .66)
predrIM <- c(.58, .24, -.04, .06, -.04, .18, .36, .08, .64, .56, .36, .56)
ralertingp(actr=actrIM, predr=predrIM, iter=1000)
# }
Run the code above in your browser using DataLab