# ===========================================
# Dr. Carlos Téllez Martínez
# Febrero 2015
# Control Estadístico de Calidad
# DIAGRAMA DE DISPERSIÓN Y CORRELACION EN R
# ===========================================

# Usando la base de datos "airquality"
# Se verificará la relación en forma gráfica entre las variables
# Ozone y Temp

attach(airquality)
names(airquality)
## [1] "Ozone"   "Solar.R" "Wind"    "Temp"    "Month"   "Day"
plot(Ozone ~ Temp, main="Diagrama de Dispersión y correlación entre las variables Temperatura y Ozono para airquality",
     xlab="Temperatura", ylab="Ozono")
# Para crear una línea de regresión
abline(lm(Ozone ~ Temp))

# Para generar Diagrama de varias variables
pairs(~Ozone + Temp + Solar.R)

# Para hacer análisis de correlacion
library(psych)
pairs.panels(airquality[c(1,2,4)])