give.na<-function(x){

for(i in 1:ncol(x)){
if(is.factor(x[,i])==T){
x[is.na(x[,i]),names(x[i])]<-which.max(table(x[,i]))
}
if(is.numeric(x[,i]==T)){
x[is.na(x[,i]),names(x[i])]<-median(x[,i],na.rm=T)
}
}
}
建立函数后。运行这个函数无效，但是直接把list带入for循环有效，但是会警告
警告信息：
1: In Ops.factor(left, right) : ‘-’ 对因子没有意义
2: In Ops.factor(left, right) : ‘-’ 对因子没有意义
3: In Ops.factor(left, right) : ‘-’ 对因子没有意义