### R code from vignette source 'EstimationStepByStep.Rnw'

###################################################
### code chunk number 1: EstimationStepByStep.Rnw:46-47
###################################################
R <- c("0000", "0001")