# NOT RUN {
input_stoch <- matrix(c(0, 0.3,
0, 0.7),
ncol = 2, byrow = TRUE)
teleport(0.15)(input_stoch)
vote_equal(input_stoch)
vote_self(input_stoch)
# }
Run the code above in your browser using DataLab