### R code from vignette source 'vignettes/MPFE/inst/doc/MPFE.Rnw'

###################################################
### code chunk number 1: MPFE.Rnw:52-56
###################################################
library(MPFE)
data(patternsExample)
patternsExample
estimatePatterns(patternsExample, epsilon=0.01, column=2)


###################################################
### code chunk number 2: MPFE.Rnw:66-70
###################################################
estimates <- estimatePatterns(patternsExample,
                              epsilon=0.01,
                              eta=c(0.008, 0.01, 0.01, 0.01, 0.008))
estimates


###################################################
### code chunk number 3: MPFE.Rnw:78-79
###################################################
plotPatterns(estimates[[2]])