使用循环语句ｆｏｒ，运算时间长，请求指点

biochem_bioinf

题设：比较E4和H3两个数据组中第四列的值，是factor，找出只有E4中有的，并输出。

我用ｆｏｒ循环语句做如下操作，可以实现，但是很费时，想请问下正规点的R应该如何写？多谢！

E4only<-0;

common1<-0;

common2<-0;

for (i in 1: 3610) {

E4<-as.character(E4[i,4]);

for (j in 1:6611) {

sham<-as.character(H3[j,4]);

if (E4==sham) {common1<-common1+1;return} else {}

}

if (common1==common2) {E4only<-E4only+1;print(E4only);print(E4);} else{common2<-common1;}

}

common2;

E4only;

另：用ｐｒｉｎｔ在前台直接输出，想请问下能同时前台输出和写到文件中的修改应该如何？

mengchen

<br />
# convert factor to charactor<br />
E4_4 <- as.character(E4[, 4])<br />
H3_4 <- as.character(H3[, 4])</p>
<p># see help page help(is.element)<br />
i <- ! E4_4 %in% H3_4<br />
# unique in E4_4<br />
r <- E4_4[i]<br />
# print result<br />
print (r)<br />
# write into a file<br />
write.table(r, file="output.csv", col.names=FALSE, row.names=FALSE, quote=FALSE, sep=",")<br />

</p>