Ejemplo2

library(tidyverse)

base_datos <- read_csv("Datos1.csv")
base_datos

Estadisticas descriptivas

summary(base_datos)

##       Edad        Altura           Peso       
##  Min.   :21   Min.   :1.550   Min.   : 50.00  
##  1st Qu.:22   1st Qu.:1.650   1st Qu.: 55.00  
##  Median :22   Median :1.700   Median : 70.00  
##  Mean   :22   Mean   :1.693   Mean   : 74.29  
##  3rd Qu.:22   3rd Qu.:1.750   3rd Qu.:100.00  
##  Max.   :23   Max.   :1.800   Max.   :105.00

Graficos de relaciones entre variables

plot(base_datos$Altura, base_datos$Peso)