rm(list = ls())
options(warn = 2, error = recover)
for(obs_dist_normal in c(TRUE)) {
for(time_dependence in c(TRUE)) {
for(fit_method in c("normalFMM", "normalHMM", "RF")) {
sim_inds <- seq_len(50)
for(sim_ind in sim_inds) {
system_cmd <- paste0("R --vanilla --args ", sim_ind, " ", obs_dist_normal, " ", time_dependence, " ", fit_method,
" < C:/Stat/HMM/PACwithDDM/inst/simStudyScripts/run/simStudyOneCase.R")
system(system_cmd, intern = TRUE)
}
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.