*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 correlaciones con grados de significación corregidos.

*R_get_specified_variables.sps. (A modicar para cada caso).
get file='b:\R\trabajo\beatriz-carcel.sav'.

*Procedimiento en R: Lectura de los datos.
BEGIN PROGRAM R.
varnomb<-c("delsan","prienpri","tempocontrol","soluce","soluca")
datos <- spssdata.GetDataFromSPSS(variables=varnomb) 
end program.

********************************************************************************************.
*Procedimientos estadísticos.
********************************************************************************************.
*Procedimiento de correlación en R.
begin program r.
#Corrige p en correlaciones
library(ltm)
print("***************************************************************************************")
#Procedimientos de ajuste:holm,hommel,bonferroni,BY,BH,fdr,hochberg,"none"
cat("Mariz R clásica")
m0<-rcor.test(datos,p.adjust=TRUE,p.adjust.method="none",method="pearson")
m0

cat("Método 1: Hommel")
m1<-rcor.test(datos,p.adjust=TRUE,p.adjust.method="hommel",method="pearson")
m1

cat("Corrección 2: Holm")
m2<-rcor.test(datos,p.adjust=TRUE,p.adjust.method="holm",method="pearson")
m2

cat("Método 3: BH")
m3<-rcor.test(datos,p.adjust=TRUE,p.adjust.method="BH",method="pearson")
m3

cat("Corrección 4: Bonferroni")
m4<-rcor.test(datos,p.adjust=TRUE,p.adjust.method="bonferroni",method="pearson")
m4
end program.