Yaws_R_Markov_model.R