# NOT RUN {
# data <- preprocessInputData(regionTrain, regionPopulation)
# set.seed(123)
# data <- data[[1]]
# N <- attr(data, "regionPopulation")
## x = (p, beta, gamma, CFR)
# x <- matrix(c(0.01, 0.1, 0.01, 0.1),1,4)
# conf <- list(regionData = data, N = N)
# funMarkovChain(x, conf)
# }
Run the code above in your browser using DataLab