filenames <- dir(path=system.file("extdata",
package="RnaSeqTutorial"),
pattern="[A,C,T,G]{6}\\.bam$",
full.names=TRUE)
bfl <-BamFileList(filenames,index=filenames)
validate(bfl)
Run the code above in your browser using DataLab