run expectancy matrix in R