# The ordered p-values
> pvals<-c(.01,.013,.014,.19,.35,.5,.63,.67,.75,.81)
> numtests<-length(pvals)
#three different thresholds, family-wise alpha=.05
> bonf<-rep(.05/numtests,numtests)
> holm<-.05/seq(numtests,1,-1)
> fdr<-(1:numtests)*.05/numtests
> cbind(pvals,bonf,holm,fdr)pvals bonf holm fdr
[1,] 0.010 0.005 0.005000000 0.005
[2,] 0.013 0.005 0.005555556 0.010
[3,] 0.014 0.005 0.006250000 0.015
[4,] 0.190 0.005 0.007142857 0.020
[5,] 0.350 0.005 0.008333333 0.025
[6,] 0.500 0.005 0.010000000 0.030
[7,] 0.630 0.005 0.012500000 0.035
[8,] 0.670 0.005 0.016666667 0.040
[9,] 0.750 0.005 0.025000000 0.045
[10,] 0.810 0.005 0.050000000 0.050
#carry out tests
> b.test<- pvals<bonf
> holm.t<- pvals<holm
> fdr.t<- pvals<fdr
> cbind(pvals,b.test,holm.t,fdr.t)pvals b.test holm.t fdr.t
[1,] 0.010 0 0 0
[2,] 0.013 0 0 0
[3,] 0.014 0 0 1
[4,] 0.190 0 0 0
[5,] 0.350 0 0 0
[6,] 0.500 0 0 0
[7,] 0.630 0 0 0
[8,] 0.670 0 0 0
[9,] 0.750 0 0 0
[10,] 0.810 0 0 0
| Jack Weiss Phone: (919) 962-5930 E-Mail: jack_weiss@unc.edu Address: Curriculum in Ecology, Box 3275, University of North Carolina, Chapel Hill, 27516 Copyright © 2007 Last Revised--April 10, 2007 URL: http://www.unc.edu/courses/2007spring/enst/562/001/docs/lectures/lecture34.htm |