"car.test.frame"中包含的列变量类型未转换成factor类型

需将数据列均准换成factor类型，并用missMDA包的函数处理缺失值，具体代码如下：
#将向量转换成factor
data(car.test.frame,package="rpart")
library(FactoMineR)
test=car.test.frame
test[,1]=factor(test[,1])
test[,3]=factor(test[,3])
test[,4]=factor(test[,4])
test[,6]=factor(test[,6])
test[,7]=factor(test[,7])
test[,8]=factor(test[,8])
#处理缺失值
require(missMDA)
completed<-imputeMCA(test,ncp=2)
res.mca <- MCA(test,tab.disj=completed$tab.disj)