clusterSites(posID=c('chr1-','chr1-','chr1-','chr2+','chr15-',
'chr16-','chr11-'), value=c(rep(1000,2),5832,1000,12324,65738,928042),
grouping=c('a','a','a','b','b','b','c'))
data(psl)
psl <- psl[sample(nrow(psl),100),]
psl.rd <- getIntegrationSites(pslToRangedObject(psl))
psl.rd$grouping <- sub("(.+)-.+","\\1",psl.rd$qName)
clusterSites(grouping=psl.rd$grouping, psl.rd=psl.rd)
Run the code above in your browser using DataLab