pars <- list(kappa1 = 3, kappa2 = 2, kappa3 = 1.5, mu1 = 0.5, mu2 = 1.5)
nsamp <- 2000
model <- "vmsin"
set.seed(100)
dat_gen <- do.call(paste0("r", model), c(list(n = nsamp), pars))
est <- vm2_mle(dat_gen, model = model)
library(stats4)
coef(est)
vcov(est)
Run the code above in your browser using DataLab