data(expenditures)
x <- expenditures
x[1,3]
x[1,3] <- NA
xi <- impCoda(x)$xImp
xi[1,3]
s1 <- sum(x[1,-3])
impS <- sum(xi[1,-3])
xi[,3] * s1/impS
# other methods
impCoda(x, method = "lm")
impCoda(x, method = "ltsReg")
Run the code above in your browser using DataLab