Acerca de mí

Mi nombre es Fabián Ramírez, Magíster en Ciencias Mención Matemáticas e Ingeniero Civil Matemático. Mi área de especialidad es la Estadística Espacial. 

Creador de contenido educativo en las plataformas de Twitch, Youtube y Tik Tok.

Fundador del Preuniversitario Gratuito Fabimath

Código Importante en estadística.

# establecer semilla para reproducibilidad

set.seed(123)

# Parámetros

n <- 100     # número de datos

mean <- 130  # media deseada

sd <- 15     # desviación estándar deseada

# Generar datos aleatorios normales estándar (media = 0, sd = 1)

data <- rnorm(n)

# Escalar los datos para tener la media y desviación estándar deseada

data_scaled <- sd * data + mean

# Corregir los datos para que tengan exactamente la media y desviación estándar deseadas

data_corrected <- ((data_scaled - mean(data_scaled)) / sd(data_scaled)) * sd + mean

# Verificar que los datos tienen la media y desviación estándar deseadas

cat('Media Muestral: ', mean(data_corrected), '\n')

cat('Desviación Estándar: ', sd(data_corrected), '\n')