R/cpgcount.R

In methylMnM: detect different methylation level (DMR)

cpgcount <-
function(data2, data3, cpg2, cpg3, datalength, cpglength, count=rep(0,cpglength)) 
  {
      bintags<-.C("cpgcount", as.integer(data2),as.integer(data3),as.integer(cpg2),as.integer(cpg3),
            as.integer(datalength),as.integer(cpglength),as.integer(count))
      return(bintags[[7]])
  }