Objetivo.

Analizar datos para identificar medias ponderadas y geometricas

medida ponderada 1.

Notas y pesos de los cinco exámenes realizados por un alumno: Calcular la nota media ponderada. Si todos los exámenes tuvieran el mismo peso, ¿cuál sería la media ponderada? Sacar la media geometrica de los pesos

N <- c (10, 4, 15, 7, 10)
P <- c (0.15, 0.20, 0.30, 0.35, 0.40)

A.

media.ponderada <- sum(N * P) / sum(P)
round(media.ponderada, 2)
## [1] 9.46

B.

media.ponderada.2 <- sum(N) / sum(5)
round(media.ponderada.2,2)
## [1] 9.2

Media Geométrica 1.

pesos <- c(0.15, 0.20, 0.30, 0.35, 0.40)

media.geo <- function(pesos) exp(sum(log(pesos))/length(pesos))
media.geo(pesos)
## [1] 0.2630717

Media ponderada 2.

Dadas la notas de un alumno de universitario en 4 cursos con distinto creditaje de acuerdo a su importancia. Hallar su promedio o Media Ponderada.

n <- c(80, 75, 85, 73)
c <- c(0.40, 0.30, 0.50, 0.20)
media.ponderada <- sum(n * c) / sum(c)
round(media.ponderada, 2)
## [1] 79.71

Media geométrica 2.

Supongase que las utilidades obtenidas por una compañia cosntructora en cuatro proyectos fueron de 3%, 2%, 4% y 6%, respectivamente ¿cual es la media geometrica de las ganancias?

u <- c(0.03, 0.02, 0.04, 0.06)
n <- length(u)
media.geom=prod(u)^(1/n)
media.geom
## [1] 0.03464102

Interpretación del caso.

En este caso número 6 tiene como objetivo sacar las medias ponderadas y geométricas de 2 casos de personas,por ejemplo, la media geométrica del primer caso es 0.2630717 y la del segundo es de 0.03464102 y en cuanto a las medias ponderadas la del primer caso salió como resultado 9.46 y la del segundo 79.71