#Estudio de la relación entre las horas dedicadas a la TV y

# Estudio de la relación entre las horas dedicadas a la TV y el coeficiente de inteligencia

ci <- c(106,86,100,100,99,103,97,113,113,110)
tv <- c(7,0,28,50,28,28,20,12,7,17)
datos <- data.frame(ci,tv)

# Test de normalidad
ci.sh <- shapiro.test(datos$ci)
print(ci.sh)


tv.sh <- shapiro.test(datos$tv)
print(tv.sh)

# Correlación
corr <- cor.test(datos$tv,datos$ci)
print(corr)
plot(datos,main="Relación entre horas de tv y el CI",xlab="CI",ylab="Horas semanales tv")