R/runSimu.R

In blebedenko/thescript2: Boris's thesis scripts

# # full simulation script for undersmoothing
# rm(list=ls())
# distribution <- "normal"
# MC <- 1
# cl <- parallel::makeCluster(parallel::detectCores()-1)
# sample_size <- 250
#
#
# tictoc::tic()
# RES <- thescript2::FullExperiment.US(distribution = distribution,
#                              n = sample_size,
#                              MC = MC,
#                              cl = cl,
#                              US_ratio = c(0.5,0.25))
# tictoc::toc()
# parallel::stopCluster(cl)
# res <- simsalapar::array2df(simsalapar::getArray(RES))
# random_int <- sample.int(1e10,1)
# filename <- paste0("res_US_","n=",sample_size,"_",distribution,"_",random_int,".csv")
# write.csv(res,filename,row.names = FALSE)