- chrname=data[i,3]
- #print(chrname)
- info <-array()
- for (a in diss)
- {
- #hrow<-which(diss==a)
- if (a < 30000 && chrname==data[which(diss==a),3])
- {
- row <- which(diss==a)
- name <- data[row,13]
- name <- unique(name)
- info <- array(name);info
- print(info)
- #print(length(info))
- }
- }
这个是我的一段代码
判断正确后输出表格中的一列,请问如何将每次判断的结果依次保存到表格中呢
如果用wirte.table的话应该只能保存一次的结果,我看到有用sink(“a.txt”) sink()
这样虽然能把结果保存,但是很乱。求教