added R script that creates the state graph of the Markov chain corresponding to the ordered switching algorithm for a given network