Analizar datos para identificar medias ponderadas y geométricas.
De un conjunto de tres ejercicios del libro Identificar media pondera y geométrica de un conjunto de datos (simples).
datos= c(15,20,18,9,12), datos2= c(8,6,7,9,10), datos1 <- c(75,80,96,37,55,47), datos3 <- c(90,73,70,80,85,50),
library(readr)
library(fdth)ponde1= c(5,10,15,8,9)
datos= c(15,20,18,9,12)media.ponde1= weighted.mean(x=datos, w=ponde1)
media.ponde1## [1] 15.42553Un videojugador quiere sacar un item de rango S, para eso tiene que fusionar varios objetos y para lograrlo, necesita saber alguna media ponderada de que le salga el item de rango S en el juego.
ponde2= c(0.50,0.20,0.30,0.70,0.35)
datos2= c(8,6,7,9,10)media.ponde2= weighted.mean(x=datos2, w=ponde2)
media.ponde2## [1] 8.341463La compañia de videojuegos “SNK” desea saber la media ponderada sobre los numeros de ventas que tubieron los dias 8, 6, 7, 9, 10, del mes agosto, de los cuales dieron los resultados 50,20,30,70,35, de ventas. Entonces, ¿Cual es su media ponderada?
datos1 <- c(75,80,96,37,55,47)
n <- length(datos1)media.geo1 <- prod(datos1)^(1/n)
media.geo1## [1] 61.68517En Japon, se realizo una encuesta, la cual, trata de que series anime les gusta a los japonenes, y esto fue lo que salio, las de accion fue un 75%, las de comedia 80%, las de shonen 96%, las de terror 37%, las de romance 55% y de las sangrientas 47%.
datos3 <- c(90,73,70,80,85,50)
n <- length(datos3)media.geo2 <- prod(datos3)^(1/n)
media.geo2## [1] 73.39904En las tierras de Japon, una de las cosas mas consumidas o compradas, son los mangas, los cuales, en diferentes regiones de Japon, como es en Tokio, 90% de los japonenes compran mangas, en Hokkaido, es el 73%, en Kanto, es el 70%, en Okinawa, es el 80%, en Chubu, es el 85%, y en Kyushu, es el 50%. Un persona quiere saber cuanto es el medio geometrico de compras de mangas en todo japon.
En este caso, se vio el como sacar la media ponderada y la media geometrica, la cual ayuda a porcentajes, puntuajes, indices, etc., otorga diferentes pesos a los distintos valores sobre los que se calcula. La interpretacion fue la de sacar un porcentaje para sacar un item de un juego, el porcentaje de venta de una compañia de videojuego, la preferencia de series anime en Japon y en que regiones se venden mas los mangas, en Japon.