# Convert a dataframe to GRanges object
data(sites)
alldata.rd <- makeGRanges(sites,soloStart=TRUE)
data(genes)
genes.rd <- makeGRanges(genes)
geneCounts1 <- getFeatureCounts(alldata.rd,genes.rd,"NumOfGene")
geneCounts2 <- getFeatureCountsBig(alldata.rd,genes.rd,"NumOfGene")
identical(geneCounts1,geneCounts2)
Run the code above in your browser using DataLab