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

*Lectura directa de archivo SPSS.
begin program r.
#Carga de la base de datos
library(foreign) 
spss.data <- read.spss("b:\\r\\trabajo\\ejemplos\\datos.sav",to.data.frame = TRUE)

#Comprueba los nombres de las variables
names(spss.data) 

#Comprueba las dimensiones de la base de datos.
dim(spss.data)

#Resumen de las variables
summary(spss.data)

#Imprime dos variables
print ("********************************************************************************")
print(spss.data$corrient)
print(spss.data$fenot)
end program.