Caso 6

Notas y pesos de los cinco exámenes realizados por un alumno:
1. Calcular la nota media ponderada.
1. Si todos los exámenes tuvieran el mismo peso, ¿cuál sería la media ponderada?
1. 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)

media.ponderada <- sum(N * P) / sum(P)
round(media.ponderada, 2)

## [1] 9.46

media.ponderada.2 <- sum(N) / sum(5)
round(media.ponderada.2, 2)

## [1] 9.2

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

# Otra forma de calcular la media geometrica seria:
n <- length(pesos)
prod(pesos)^(1/n)

## [1] 0.2630717

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

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

Bueno en este caso de la practica uno podemos ver que la media ponderada de los exámenes de las personas es de un 9.46 pero esto será con pesos distintos
Ahora si todos pesaran lo mismo la media ponderada seria de 9.2 Pasándonos ahora a la media geométrica de este mismo caso nos damos cuenta este tendrá un valor de 0.2630717 con los pesos de las 5 personas
En la practica 2 el problema nos pide que hallemos la media ponderada de un alumno, al usar la formula en RStudio nos da una ponderación de 79.71 que será su promedio de esas 4 calificaciones y créditos
En la media geométrica nos piden las ganancias de una compañía y usando la formula y los porcentajes no da un 0.03464102 de ganancias