## Mixed-type error computation on iris:
data(iris)
## Introduce missingness:
set.seed(81)
iris.mis <- prodNA(iris, noNA = 0.2)
## Impute:
iris.imp <- missForest(iris.mis)
## Compute the true imputation error:
err.imp <- mixError(iris.imp$ximp, iris.mis, iris)
err.imp
Run the code above in your browser using DataLab