data<-matrix( 1:800, nrow=400 )
data[,2]<-data[,1]+37
cpg<-matrix( 1:20, nrow=10)
cpg[,1]<-seq(0,360,length=10)
cpg[,2]<-seq(40,400,length=10)
f <- calculatecount(data[,1], data[,2], cpg[,1], cpg[,2], length(data[,1]),
length(cpg[,2]), count=rep(0,length(cpg[,2])))
Run the code above in your browser using DataLab