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
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