set.seed(345678)
data <- rTrajMou(x0 = c(0, 0), A = alphaToA(alpha = c(1, 1, 0.5),
sigma = 1:2), mu = c(1, 1),
Sigma = diag((1:2)^2), N = 200, delta = 0.5)
mleMou(data = data, delta = 0.5, start = c(1, 1, 0, 1, 1, 1, 2),
lower = c(0.1, 0.1, -25, -10, -10, 0.1, 0.1),
upper = c(25, 25, 25, 10, 10, 25, 25), maxit = 500)
# Fixed sigma and mu
mleMou(data = data, delta = 0.5, mu = c(1, 1), sigma = 1:2,
start = c(1, 1, 0), lower = c(0.1, 0.1, -25), upper = c(25, 25, 25))
Run the code above in your browser using DataLab