Revision bea0f6203c78ee704dca8deb7c74cc48e13ee950 authored by Matthias Templ on 15 May 2012, 15:35:41 UTC, committed by cran-robot on 15 May 2012, 15:35:41 UTC
1 parent 2849c21
Raw File
rz.R
require(robCompositions)
data(expenditures)
xOrig <- x <- expenditures

## DL as negative values
x[x < 350] <- - 350

#impCoda2(x)

## DL given:
#impCoda2(xOrig, dl=c(0, 350, 350, 350, 350))


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


back to top