R/simulation_data.R

In FedericoMelograna/ISN: ISN modeling

data_simulation <- function(nind, ngeni, seed= 123 ){
  
  set.seed(seed)
  dataset_sim = replicate(n = ngeni, 
                          expr = rnorm(n = nind, mean = 0, sd = 1) )
  dim(dataset_sim)
  rownames(dataset_sim) = paste0("Ind", seq(1,nind))
  colnames(dataset_sim) = paste0("Gene", seq(1,ngeni))
  dataset_sim = data.frame(dataset_sim)
  return(dataset_sim)
}