R/attachgenomes.R

In MoisesExpositoAlonso/popgensim: Wright Fisher simulations: C++ implementation with interactive Shiny app visualization

readattachG<-function(genomesfile="databig/genome.desc", doattach=F)
{
  genomes<-readRDS(genomesfile)
  if(doattach==T){
    genomes<-attachgenomes(genomes)
  }
  return(genomes)
}

attachgenomes<-function (genomes){
    genomes$g <- bigmemory::attach.big.matrix(genomes$genotypes)
    return(genomes)
}