#Ejercicio media ponderada. Las calificaciones en una clase de lenguaje tienen cuatro componentes, con los porcentajes indicados: lectura (35 %), lectura comprensiva (15 %) , ortografía (20 %) y elaboración de trabajo (30%). Sí Agnes fue calificada respectivamente con un : 8, 4, 7 y 9. ¿Cuál será su nota media?
calif <- c(8, 4, 7, 9)
porcentaje <- c(.35, .15, .20, .30)Se calculará la media ponderada
media.ponderada.2 <- weighted.mean(calif, porcentaje)
round(media.ponderada.2, 2)## [1] 7.5#Ejercicio 2 Las notas de algebra de una clase de una alumna son las siguientes: 8,9,6,7,5,9
calif <- c(8, 9, 6, 7, 5, 9)
alumnos <- c(1, 2, 3, 4, 5, 6)media.ponderada.2 <- weighted.mean(calif, alumnos)
round(media.ponderada.2, 2)## [1] 7.19#Ejercicio media geometrica Una aldea sufre un proceso rápido de envejecimiento. El primer año aumentan los mayores de 65 años un 10%, el segundo año, un 20%, el tercer año un 30% y el cuarto año, un 40%. Si la población de inicial es de 100 mayores de 65 años, ¿cuál será un mejor indicador para caracterizar ese envejecimiento: la media aritmética o la media geométrica?
datos <- c(10, 20, 30, 40)n <- length(datos)
media.geom <- prod(datos) ^ (1/n)
media.geom## [1] 22.13364media.geom.2 <- exp(mean(log(datos)))
media.geom.2## [1] 22.13364#Ejercicio 2 Si el crecimiento de las ventas en un negocio fue en los tres último años de 26%, 32% y 28%, hallar la media anual del crecimiento.
crecimiento <- c(26, 32, 28)n <- length(crecimiento)
media.geom <- prod(crecimiento) ^ (1/n)
media.geom## [1] 28.56015media.geom.2 <- exp(mean(log(crecimiento)))
media.geom.2## [1] 28.56015#Interpretacion. Segun la media ponderada de las calificaciones de cada porcentaje de una alumna en cuatro distintas clases fue de 7.5 y en las notas de algebra de una alumna la media ponderada fue de 7.19. De acuerdo a la formula de la media geometrica de una aldea en envejecimiento fue de 22.13364 y el segun el crecimiento de ventas de un negocio en los ultimos tres años, la media ponderada fue de 28.56015.