R/study-real_init.R

In wlandau/fbseqComputation: fbseqComputation

#' @title Function \code{real_init}
#' @description create the data files for the real data analysis
#' @export
#' @return path to simulated objects
#' @param path to directory to save simulations and results
real_init = function(path = newdir()){
  path = newdir(path)
  data(paschold)
  paschold = get("paschold")
  if(!file.exists(f <- paste0(path, "paschold_39656_16_1.rds"))) 
    saveRDS(simulation_paschold(), f)
  path
}