library("SVM2CRMdata")
    library("GenomicRanges")
    setwd(system.file("data",package="SVM2CRMdata"))
    load("CD4_matrixInputSVMbin100window1000.rda")    
    completeTABLE<-CD4_matrixInputSVMbin100window1000
    new.strings<-gsub(x=colnames(completeTABLE[,c(6:ncol(completeTABLE))]),pattern="CD4.",replacement="")
    new.strings<-gsub(new.strings,pattern=".norm.w100.bed",replacement="")
    colnames(completeTABLE)[c(6:ncol(completeTABLE))]<-new.strings
    
    setwd(system.file("extdata",package="SVM2CRMdata"))
    data_level2 <- read.table(file = "GSM393946.distal.p300fromTSS.txt",sep = "\t", stringsAsFactors = FALSE)
    data_level2<-data_level2[data_level2[,1]=="chr1",]
    DB <- data_level2[, c(1:3)]
    colnames(DB)<-c("chromosome","start","end")
    label <- "p300"
    table.final.overlap<-findFeatureOverlap(query=completeTABLE,subject=DB)
Run the code above in your browser using DataLab