AAA教育论坛

标题: R多值离散型属性转换成二值型属性 [打印本页]

---

作者: 谷小燕老师    时间: 2018-3-1 13:14
标题: R多值离散型属性转换成二值型属性
[attach]907[/attach]

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)

[attach]909[/attach]

---

欢迎光临 AAA教育论坛 (https://bbs.aaa-cg.com.cn/)

X3.2