c6

“Calcular la media ponderada de los siguientes datos: Dato: 20,15,5,8 Peso: 2,3,1,4”

Dato=c(20,15,5,8)
Peso=c(2,3,1,4)

media.ponderada <- weighted.mean(Dato, Peso)
round(media.ponderada, 2)

## [1] 12.2

“Notas y pesos de los cinco exámenes realizados por un alumno: Nota: 10,8,3,5,3 Peso: 10%,15%,25%,20%,30%”

Nota=c(10,8,3,5,3)
Peso=c(10,15,25,20,30)

media.ponderada <- weighted.mean(Nota, Peso)
round(media.ponderada, 2)

## [1] 4.85

“Cual es la media geometrica de los siguientes valores muestrales de acidez en la sangre en unidades HHP: 2.0015,1.987,3.0001,2.5816”

valores <- c(2.0015,1.987,3.0001,2.5816)
n <- length(valores)
media.geom <- prod(valores) ^ (1/n)
media.geom

## [1] 2.355833

“Cual es la estatura media geometrica de 5 estudiantes: 1.75,1.85,1.65,1.90,1.76”

estaturas <- c(1.75,1.85,1.65,1.90,1.76)
n <- length(estaturas)
media.geom <- prod(estaturas) ^ (1/n)
media.geom

## [1] 1.779885