target.file <- system.file("extdata","targets.bed",package="exomeCopy")
target.df <- read.delim(target.file,header=FALSE,col.names=c("seqname","start","end"))
target <- GRanges(seqname=target.df$seqname,IRanges(start=target.df$start+1,end=target.df$end))
reference.file <- system.file("extdata","reference.fa",package="exomeCopy")
GCcontent <- getGCcontent(target, reference.file)
Run the code above in your browser using DataLab