Markov-Switching Model with R