powered by
rnb.mval2beta(mvals)
numeric
library(RnBeads.hg19) data(small.example.object) logger.start(fname=NA) mvals <- rnb.beta2mval(meth(rnb.set.example)) bvals <- rnb.mval2beta(mvals) all((bvals-meth(rnb.set.example))<1e-10)
Run the code above in your browser using DataLab