fix_kappa_run.R

configurations.fix.kappa <- rbind(
  configurations.00,
  configurations.10,
  configurations.30,
  configurations.40)


cl <- makeCluster(37, type='FORK')
clusterEvalQ(cl, library(InformationAndInference))
MSEs.fix.kappa <- parApply(cl, configurations.fix.kappa, 1, replicateMSE)
attr(MSEs.fix.kappa, "createdAt") <- Sys.time()

save(MSEs.fix.kappa, configurations.fix.kappa, file='RData/MSEs_fix_kappa.9.RData')

stopCluster(cl)
############################################