> sink("intersect.txt") ####建立文件名
> length(intersect(dgeseq1[,1],cuff1[,1])) ####要输出的内容
> sink() ####输出
要是输出的格式不是窗口显示的形式时：
write.table(inter,"inter.txt",col.names=F,row.names=F,quote=F,sep="\t")、
#inter:输出的内容
#inter.txt:输出的文件名
