*Procedimiento creado por:F.J.Herrero,M.Cuesta,P.Fernández y G.Vallejo (2011)
*Grupo de Diseños de Investigación y Análisis de Datos
*Departamento de Psicología - Universidad de Oviedo.
*****************************************************************************************
*Procedimiento para obtener grados de significación corregidos.

begin program r.
#Corrección de grados de signicación

#P de los experimentos y su ordenación
p<-c(0.0,0.0000027,0.5494,0.0002070,0.0004720,0.0,0.000314,0.0009848,0.0148276,
0.0000005,0.0013189,0.0017179,0.0002591,0.5995744,0.0000909)

p<-c(0.00001,0.0001,0.001,0.01,0.05,0.10)
p<-sort(p)

#Menos conservador respecto a Bonferroni
Holm<-p.adjust(p,method="holm")
#Independientes y no asociados negativamente, siendo hommel más potente
Hommel<-p.adjust(p,method="hommel")
Hochberg<-p.adjust(p,method="hochberg")
#p multiplicado por el número de comparaciones
Bonferroni<-p.adjust(p,method="bonferroni")
#Correción frente al rechazo de Hipot.
BH<-p.adjust(p,method="BH")
BY<-p.adjust(p,method="BY")
FDR<-p.adjust(p,method="fdr")
tablap<-data.frame(p,Hommel,Hochberg,Holm,BY,BH,FDR,Bonferroni)
tablap
end program.