Discussion week10 response

library(markovchain)
library(diagram)

weatherStates <- c("Rain", "Nice", "Snow")
byRow <- TRUE
weatherMatrix <- matrix(data = c(0.5, 0.25, 0.25,
                                  0.5, 0.0, 0.5,
                                  0.25, 0.25, 0.5), byrow = byRow, nrow = 3,
                        dimnames = list(weatherStates, weatherStates))
mcWeather <- new("markovchain", states = weatherStates, byrow = byRow, transitionMatrix = weatherMatrix, name = "Weather")
plot(mcWeather)