require(yaImpute)
data(iris)
# form some test data
refs=sample(rownames(iris),50)
x <- iris[,1:3] # Sepal.Length Sepal.Width Petal.Length
y <- iris[refs,4:5] # Petal.Width Species
# build a yai object using mahalanobis
mal <- yai(x=x,y=y,method="mahalanobis")
# output a data frame of observed and imputed values
# of all variables and observations.
impute(mal)
malImp=impute(mal,ancillaryData=iris)
plot(malImp)
Run the code above in your browser using DataLab