__
__
Planteamiento del problema
__
Dados los siguientes valores, hallar las medidas de tendencia central (media, mediana y moda). 10, 23, 1, 65, 11, 45, 13, 7, 29, 51, 14, 31,67,98,15.
__
Primero ponemos los valores en un vector. dat <- c(10, 23, 1, 65, 11, 45, 13, 7, 29, 51, 14, 31,67,98,15)
Para calcular la media usamos la función (mean).
me <- mean(dat)
Utilizamos el mismo vector creado previamente y usamos la funcion (median) para realizar el cálculo
med <- median(dat)
Se crea la siguiente función
mod <- names(sort(table(dat), decreasing = TRUE))[1]
donde: * table(dat), cuenta la frecuencia en cada vector de dat.
sort, ordena los elementos del vecctor en orden ascendente o descendente.
decreasing, al ser verdadero ordena los elementos de forma ascendente.
names, devuelve el primer valor.
__
dat <- c(10, 23, 1, 65, 11, 45, 13, 7, 29, 51, 14, 31,67,98,15)
me <- mean(dat)
me## [1] 32med <- median(dat)
med## [1] 23mod <- names(sort(table(dat), decreasing = TRUE))[1]
mod## [1] "1"