OBJETIVO: Analizar datos para identificar medias ponderadas y geometricas.

MEDIAS PONDERAS

#EJERCICIO 1

El centro médico Wachesaw que se inaguró el mes pasado fue diseñado para cirugías menores que no requieren más de un día de hospitalización. A continuación se indica el número de pacientes que se atendieron durante los primeros 10 días:

Dia1-27, Dia2-27, Dia3-27, Dia4-28, Dia5-27, Dia6-25, Dia7-25, Dia8-28, Dia9-26, Dia-28

Resultados <- c(27,27,27,28,27,25,25,28,26,28)
Dias <- c(1,2,3,4,5,6,7,8,9,10)

AHORA SE MOSTRARA LA MEDIA PONDERADA…

media.ponderada <- weighted.mean(Resultados, Dias)
round(media.ponderada, 2)
## [1] 26.76

#EJERCICIO 2

#El banco Citizens Banking Company analiza el número de veces que se utiliza por día un cajero automático ubicado en el supermercado Loblaws. A continuación se indican las veces que dicho aparato se utilizo en cada uno de los últimos 5 días.

Dia1-83, Dia2-63, Dia3-95, Dia4-59, Dia5-87

Resultados <- c(83,63,95,59,87)
Dias <- c(1,2,3,4,5)

AHORA SE MOSTRARA LA MEDIA PONDERADA…

media.ponderada <- weighted.mean(Resultados, Dias)
round(media.ponderada, 2)
## [1] 77.67

MEDIAS GEOMETRICAS

#EJERCICIO 1 #La publicación Bank Rate Monitor informó las siguientes tasas de ahorro.

TASA1- 3.01, TASA2- 2.96, TASA3- 3.25, TASA4- 3.51, TASA5- 4.25

TASA <- c(3.01,2.96,3.25,3.51,4.25)
N <- length(TASA)
media.geom <- prod(TASA) ^ (1/N)
media.geom
## [1] 3.365794

#EJERCICIO 2

#Consulte el conjunto de datos OECD que reporta información acerca de los datos de censos económicos y de negocios para 5 países seleccionados.

NORUEGA-2456, MEXICO-34325, CANADA-15209, ESPAÑA-16159, PORTUGAL-4885

Paises <- c(2456,34325,152099,16159,4885)
N <- length(Paises)
media.geom <- prod(Paises) ^ (1/N)
media.geom
## [1] 15887.25

Interpretacion del Caso

En el primer ejercicio de Ponderada que fue de los pacientes que se atendieron durante 10 días y la Media Ponderada fue 26.76, en el segundo fue 77.67… Ahora seguimos sacando la Media Geométrica, que en el primer ejercicio fue de 3.365794, por otro lado, el segundo ejercicio nos dio 15887.25.