Ensayo de regresion usando rstudio

Cargamos los datos

edad=c(10,11,12,14,14,15,15,12,14,12)
peso=c(50,45,48,51,52,56,47,40,35,36)
sexo=c(0,1,1,1,0,0,0,1,1,1)
sexo_etiquetado <- ifelse(sexo == 0, "H", "M")
datos=data.frame(edad,peso,sexo,sexo_etiquetado)
str(datos)
## 'data.frame':    10 obs. of  4 variables:
##  $ edad           : num  10 11 12 14 14 15 15 12 14 12
##  $ peso           : num  50 45 48 51 52 56 47 40 35 36
##  $ sexo           : num  0 1 1 1 0 0 0 1 1 1
##  $ sexo_etiquetado: chr  "H" "M" "M" "M" ...
plot(datos)

table(sexo_etiquetado,edad)
##                edad
## sexo_etiquetado 10 11 12 14 15
##               H  1  0  0  1  2
##               M  0  1  3  2  0
summary(edad)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    10.0    12.0    13.0    12.9    14.0    15.0
hist(edad)

>> La distrinicion de las edades es simetrica en torno a la edad x