1 ACTIVIDAD 1

1.1 Cita de un estadístico

“Los estadísticos, como los artistas, tienen el mal hábito de enamorarse de sus modelos”

George Box 1

2 ACTIVIDAD 2

2.1 Autobiografía

Nací el 23 de abril de 1999, en Lima-Perú. Estudié 6 años la carrera de Medicina Humana en UNMSM; sin embargo, por diversas razones me dí cuenta de que no era mi vocación. Decidí estudiar Estadística Informática en la UNALM por mis intereses verdaderos en la vida:

  1. Las matemáticas

  2. La tecnología

  3. Un vida tranquila fuera del estrés de un ambiente hospitalario

  4. La rentabilidad de la carrera

Como objetivos dentro de mis estudios de pregrado considero el más importante destacarme dentro de mi carrera, participando de concursos de Hackathon que diversas entidades lanzan y unirme a un círculo de investigación.

3 ACTIVIDAD 3

3.1 Mi colegio

Nuestra Señora del Prado es el link del colegio 🏫 Nuestra Señora del Prado ubicado en Barrios Altos, Cercado de Lima.

Imagen del colegio Nuestra Señora del Prado
Imagen del colegio Nuestra Señora del Prado

3.2 Video sobre Oxapampa

library(vembedr)
embed_url("https://www.youtube.com/watch?v=lkMN8bRnDho") %>% use_align("center") %>% use_start_time("4m25s")

4 ACTIVIDAD 4

4.1 Gráfico de barras animado

# Cargando paquetes
library(pacman)
p_load(dplyr, ggplot2, datos, kableExtra, knitr, 
       flextable, gganimate)
options(scipen = 999)
options(digits = 3)
Situación <- c("Normal", "Riesgo Académico", "Peligro Académico", "Separado")
N <- c(250, 38, 19, 1)
alumnos <- data.frame(Situación = Situación, N = N)
alumnos
##           Situación   N
## 1            Normal 250
## 2  Riesgo Académico  38
## 3 Peligro Académico  19
## 4          Separado   1
alumnos %>%  mutate(Porcentaje = alumnos$N*100/sum(alumnos$N)) %>%
  ggplot() + aes(Situación, N, fill = Situación) +
  geom_bar(stat = "identity", show.legend = F) +
  labs(title = "Situación académica de alumnos de estadística", x="Situación académica", y= "Frecuencia") +
  geom_text(aes(label= paste0(round((Porcentaje),1),"%"), vjust = -1.0)) +
  theme_bw() + transition_states(Situación) +
  enter_grow() + shadow_mark()

5 ACTIVIDAD 5

El total de alumnos matriculados de la carrera de Estadística Informática en el semestre 2023-I ah sido de 308

  1. Nacido el 18 de octubre de 1919, Gravesend, Reino Unido. Fue un estadístico británico que trabajó en las áreas de control de calidad, análisis de series temporales, diseño de experimentos, y la inferencia bayesiana, es considerado como una de las mentes más brillantes de la estadística del siglo XX.↩︎