# ===========================================
# 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)])
