CASO6 Precio de juegos
Videojuego <- c("Metroid", "Call of Duty", "Left 4 Dead", "Overwatch", "Halo", "Gears of war")
Videojuego
## [1] "Metroid"      "Call of Duty" "Left 4 Dead"  "Overwatch"    "Halo"        
## [6] "Gears of war"
pesos.precios <- c(3.14, 4.25, 6.50, 8.38, 3.50, 5.30)
pesos.precios
## [1] 3.14 4.25 6.50 8.38 3.50 5.30
compraron <- c(3, 4, 3, 6, 8, 4)
n <- sum(compraron)

compraron
## [1] 3 4 3 6 8 4
n
## [1] 28
media.ponderada <- sum(pesos.precios * compraron) / sum(pesos.precios)
round(media.ponderada, 2)
## [1] 4.68
Funcion weighted.mean del paquete base
x <- c(6.4, 9.2, 8.1)
w <- c(0.3, 0.2,0.5)

media.ponderada <- sum(x * w) / sum(w)
round(media.ponderada, 2)
## [1] 7.81
Media geometrica
datos <- c(1,3,9)
n <- length(datos)
media.geom <- prod(datos) ^ (1/n)
media.geom
## [1] 3
economicas <- c(0.20,0.30,0.10,0.05,0.10)
n <- length(economicas)
media.geom <- prod(economicas) ^ (1/n)
media.geom
## [1] 0.1245731

En este caso se vio como sacar la media ponderada y la media geometrica.

Mediante el ejercicio que se hizo por el ejemplo de la compra de los juegos dice cuantos juegos hay y cual es la cantidad que se compro en el establecimiento y con esos datos se saco la media ponderada y geometrica