CASO6

Cargar los libreras

library(readr)
library(fdth)

## 
## Attaching package: 'fdth'

## The following objects are masked from 'package:stats':
## 
##     sd, var

Determinar media ponderada

Cargar datos de media ponderada num.1

pond= c(0.10,0.15,0.25,0.20,0.30)
datos=c(10,8,3,5,3)

Media ponderada num.1

media.pond=weighted.mean(x=datos, w=pond)
media.pond

## [1] 4.85

Descripcion del ejercicio num.1

Un maestro tiene los datos de la calificacion y valor de exames de uno de sus alumnos y quiere saber cual es la nota media ponderada.

Cargar datos de media ponderada num.2

pond= c(2,3,1,4)
datos=c(20,15,5,8)

Media ponderada num.2

media.pond=weighted.mean(x=datos, w=pond)
media.pond

## [1] 12.2

Descripcion del ejercicio num.2

En un encuesta para saber que tan grande era el numero de familiares se sacaron los siguientes resultados 20,15,5,8 la cantidad de familias que dijeron el numero de personas fue de 2,3,1,4 respectivamente. ¿Cual es la media ponderada?

Determinar la media geometrica

Cargar datos de media geometrica num.1

datos=c(32.6,53.3,28.9,48.2,67.4)
n=length(datos)

Media geometrica num.1

media.geom=prod(datos)^(1/n)
media.geom

## [1] 43.90459

Descripcion del ejercicio num.1

En una empresa quieres saber la proporcion media de las mujeres en los diferentes departamentos, Para ello, se recogen el porcentaje de mujeres en los cinco departamentos 32.6%, 53.3%, 28.9%, 48.2%, 67.4&

Cargar datos de media geometrica num.2

datos=c(81,100,74,80)
n=length(datos)

Media geometrica num.1

media.geom=prod(datos)^(1/n)
media.geom

## [1] 83.21501

Descripcion del ejercicio num.2

LA EMPRESA WELLS FARGO MORTGAGE & EQUITYTRUST EXPRESÓ LAS SIGUIENTES TASAS DE OCUPACIÓN PARA ALGUNAS DE SUS PROPIEDADES DE INGRESO INDUSTRIAL:81% ,100% ,74%,80%

¿CUÁL ES EL VALOR MEDIO GEOMÉTRICO DE LA TASA DE OCUPACIÓN?

5.- Interpretacion

Creamos un programa que nos dice la media ponderada y geometrica de problemas que encontramos por busqueda propia

Primero cargamos las librerias despues de esto cargamos los datos de los ejercicios para despues poder sacar la media ponderada con el siguiente codigo eighted.mean(x=datos, w=pond) para la media geometrica utilizamos el codigo media.geom=prod(datos)^(1/n)

Por ultimo interpretamos cada caso poniendo el problema que resolvimos al sacar la media ponderada y la media geometrica.