r1<-rnorm(5);r2<-rnorm(5);r3<-rnorm(5)
ran<-data.frame(y=c(r1,r2,r3),x<-factor(c(rep(1,5),rep(2,5),rep(3,5))))
attach(ran)
mu<-c(mean(y[x==1]),mean(y[x==2]),mean(y[x==3]))
pairwise.t.test(y,x,p.adjust.method="bonferroni")

结果输出data:  y and x

  1    2   
2 0.94 -   
3 0.98 0.94
是这样一个矩阵，但我想统计里面P值大于0.05的个数该怎么写啊？