data<-matrix( 1:400, nrow=200 )
cpg<-matrix( 1:40, nrow=20)
cpg[,1]<-seq(0,380,length=20)
cpg[,2]<-seq(20,400,length=20)
f <- calculatecount1(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