R/MakeGraphs.r

In wbooker/PloidyPal: Package for analysis of polyploid datasets

#' @export
MakeGraphs <- function(){
  somePDFPath = paste (c(str1,"/PloidyRFiles/Allelegraphs.pdf"), collapse = "")
  pdf(file=somePDFPath)  
  for (i in 1:numLoci)   
  {   
    LocusPlot(testLoci[i])  
  } 
  dev.off()
  cat(c("Writing:" , paste(c(str1,"/PloidyRFiles/Allelegraphs.pdf"), collapse = ""), "\n")) 
}