本人R语言新手，请多指教
最近遇到一个问题
有一个output.txt文件，内容如下
item     change        p
1             0.1         0.5
2             0.2        0.02
3             -0.1      0.1
4             0.2        0.4
………
这样的数据有1千万行，我只是展示了其中一部分
我现在要将最后一列的p值读到一个数组之中，然后用一个函数处理它。
我试了两个程序，发现读入速度极慢，只有c语言的万分之一，我觉得可能是自己编写的方法不对，我把程序展示一下，请大神指点
（1）
con<-file("output.txt","r")
line<-readLines(con,n=1)
line<-readLines(con,n=1)
ptemp<-c()
while(length(line)!=0)
{
valueo<-strsplit(line,"\t")  
value<-as.numeric(valueo[[1]][6])
   
ptemp<-c(ptemp,value)

line<-readLines(con,n=1)

}
close(con)
(2)
library(qvalue)
qtemp<-read.table("output.txt",header=T)
qtemp<-qtemp[,3]