#Analisis de regresi昼㸳n lineal simple

grasas = read.table("http://verso.mat.uam.es/~joser.berrendero/datos/EdadPesoGrasas.txt", header=TRUE)
names(grasas)
## [1] "peso"   "edad"   "grasas"
#Matriz de dispersi昼㸳n

pairs(grasas)

#Tabla de correlaci昼㸳n
cor(grasas)
##             peso      edad    grasas
## peso   1.0000000 0.2400133 0.2652935
## edad   0.2400133 1.0000000 0.8373534
## grasas 0.2652935 0.8373534 1.0000000
#analisis de regresion lineal