d=matrix(ncol=5,nrow=5)
d[1,]=c(5,4,3,2,1)
d[2,]=c(4,3,4,3,4)
d[3,]=c(1,1,1,1,1)
d[4,]=c(4,NA,3,4,4)
d[5,]=c(5,NA,NA,2,1)
d=data.frame(d); d[,3]=factor(d[,3])
print(d)
print(imputation("value",d,3,Value="3"))
print(imputation("value",d,2,Value=median(na.omit(d[,2]))))
print(imputation("value",d,2,Value=c(1,2)))
print(imputation("hotdeck",d,"X2",Value=1))
print(imputation("hotdeck",d,Value=1))
## Not run:
# # hotdeck 1-nearest neighbor substitution on a real dataset:
# d=read.table(
# file="http://archive.ics.uci.edu/ml/machine-learning-databases/autos/imports-85.data",
# sep=",",na.strings="?")
# print(summary(d))
# d2=imputation("hotdeck",d,Value=1)
# print(summary(d2))
# par(mfrow=c(2,1))
# hist(d$V26)
# hist(d2$V26)
# par(mfrow=c(1,1)) # reset mfrow
# ## End(Not run)
Run the code above in your browser using DataLab