¡Hola!, mi nombre es Maikol Solís soy profesor de la Universidad Costa Rica de la escuela de matemática e investigador del Centro de Investigación en Matemática Pura y Aplicada. Tengo más de 10 años de experiencia impartiendo clase para estudiantes de grado y posgrado de las carreras de ciencias actuariales y estadística. Además, ocasionalmente hago consultorías al sector externo mediante proyectos internos de la universidad.

En todos estos años, he enseñado a mis estudiantes principalmente sobre estadística, probabilidad y diferentes aplicaciones al respecto. Aunque he logrado, con éxito transmitir estos conocimientos, siempre he quedado con la duda de que se puede hacer más.

Este blog nace con una simple pregunta:

¿Cómo puedo explicar esta idea/concepto/algoritmo/ para se entienda de la mejor manera?

El objetivo es retador y motivador. Con este blog quiero ser una herramienta educativa para estudiantes, profesionales o cualquier persona interesada.

Entre los temas que escribiré serán temas de estadística, aprendizaje de máquina (machine learning) y ciencia de datos. Será una mezcla de temas fundamentales y modernos. También, daré muchos ejemplos en R y a veces en Python.

¿Por qué Dato Asimétrico?

Todos somos seres imperfectos. Asimétricos. Si juntamos todas esas pequeñas imperfecciones, podemos lograr algo más grande que nosotros.

Cada distribución tiene su masa concentrada en un lugar específico. Pero todas juntas logran abarcar la totalidad del espacio.

Este gráfico fue generado así:

Código

library(tidyverse)

x <- seq(0, 13, by = 0.1)

df <- data.frame(
  x = x,
  Normal = dnorm(x, mean = 5),
  Log_Normal = dlnorm(x, mean = 1),
  Gamma = dgamma(x, shape = 13, scale = 0.7)
) %>%
  pivot_longer(cols = !x)


ggplot(df, aes(x = x, y = value, color = name)) +
  geom_line(size = 2) +
  xlim(c(-2, 14)) +
  ## ggplot2::coord_fixed(ratio = 12) +
  viridis::scale_color_viridis(discrete = TRUE, end = 0.9) +
  cowplot::theme_cowplot() +
  theme(
    axis.text.x = element_blank(),
    axis.text.y = element_blank(),
    axis.ticks = element_blank(),
    legend.position = "none",
    axis.line = element_blank(),
    axis.title = element_blank(),
    panel.background = element_rect(
      fill = NA,
      size = 1,
      linetype = "solid",
      color = "black"
    )
  )

Espero que podamos conversar mucho en los comentarios.