R多值离散型属性转换成二值型属性

谷小燕老师

filedata<-read.table("d:/r/习题/6.txt",header = TRUE)
zhuanhuan<-function(liehao,d)
{
  nianling<-matrix(NA,nrow(d),length(levels(d[,liehao])))
  colnames(nianling)<-levels(d[,liehao])
  i<-1
  while (i<ncol(nianling)+1)
  {
    nianling[,i]<-ifelse(d[,liehao]==levels(d[,liehao]),1,0)
    i<-i+1
  }
  nianling
}
nianling<-zhuanhuan(2,filedata)
xueli<-zhuanhuan(3,filedata)
shouru<-zhuanhuan(4,filedata)
newData<-cbind(filedata,nianling,xueli,shouru)