data(iris)
iris_na <- iris
iris_na$Sepal.Length[c(2, 10, 25)] <- NA
imp <- imputation_tree("Sepal.Length")
imp <- fit(imp, iris_na)
iris_imp <- transform(imp, iris_na)
summary(iris_imp$Sepal.Length)
sum(is.na(iris_imp$Sepal.Length))
Run the code above in your browser using DataLab