## Not run:
# setwd("/PATH/TO/BAMFILES/")
# samples <- list.files(pattern = ".bam$", full.names = TRUE)
# ## Use the first .bam file as a reference for plotting every sample
# controls <- samples[rep(1, length(samples))]
# sample.plot <- data.frame(samples, controls)
#
# plotCNA("./PATH/TO/DESTINATIONFOLDER/", sample.plot = sample.plot, y.min = -3,
# y.max = 3)
# ## End(Not run)
Run the code above in your browser using DataLab