datafile<-system.file("extdata", package = "methylMnM")
filepath<-datafile[1]
file<-paste(filepath,"/three_Mre_CpGsite_chr18.txt",sep="")
file1<-paste(filepath,"/all_CpGsite_chr18.txt",sep="")
five_Mre_CpGsite<-read.table(file, header=FALSE, as.is=TRUE)
f<-countMREcpgbin(mrecpg.site=five_Mre_CpGsite[1:1000,],
file.allcpgsite=file1,binlength=5000)
Run the code above in your browser using DataLab