1. Nombre y extensión de mi archivo csv
MI_ARCHIVO <- c("SEMANA01_BASE01_PESOS.CSV")

#Cargamos la Base de Datos

BASE <- read.csv(file =MI_ARCHIVO, sep = ";", dec = ",", header = TRUE)

VR <- BASE[,2]
  1. Obtenemos medidas de resumen
summary(VR)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   51.52   66.16   70.58   71.62   79.20   93.88
  1. Graficamos un histograma
hist(VR, main = "PESO DE LAS ESTUDIANTES", freq = FALSE, xlab = "Peso de los Estudiantes", ylab = "Frecuencia", col = "green", border = "black", xlim = c(50,100), ylim = c(0, 0.05))

  1. Gráfico de densidad o Polígono de frecuencias Suavizado
#Calculamos en primer lugar la densidad
densidad_peso <- density(VR)
#Graficamos la densidad
plot(densidad_peso, main= "Polígono de Frecuencias Suavizado", xlab= "Peso de los Estudiantes", ylab = "Frecuencia", xlim= c(40, 110), ylim= c(0, 0.05))

  1. Links de Encuestas

    https://forms.gle/cn6agk8VYD6LxHJc8