library(oligoClasses)
library(VanillaICE)
library(MinimumDistance)
## A MinDistExperiment object:
data(md_exp)
## Segmented data
data(md_gr)
e_param <- EmissionParam(temper=1, p_outlier=1/100)
param <- MinDistParam(thin=1L, emission=e_param)
## Not run:
# md_g <- MAP2(md_exp, md_gr, param)
# ## End(Not run)
Run the code above in your browser using DataLab