require(robCompositions)
data(expenditures)
xOrig <- x <- expenditures

x[x < 5] <- 0

#imp <- impCoda(x, method='roundedZero')
#imp2 <- alrEM(x, pos=2, dl=rep(5,3))$xImp