22

22.-La demanda de un producto de una empresa varía enormemente de mes a mes. La distribución de probabilidad que se presenta en la tabla siguiente, basada en los datos de los dos últimos años, muestra la demanda mensual de la empresa.

demanda<-c(300,400,500,600)
p<-c(0.20,0.30,0.35,0.15)
tabla<-cbind(demanda,p)
tabla

##      demanda    p
## [1,]     300 0.20
## [2,]     400 0.30
## [3,]     500 0.35
## [4,]     600 0.15

a) Si la empresa basa las órdenes mensuales en el valor esperado de la demanda mensual, ¿cuál será la cantidad ordenada mensualmente por la empresa para este producto?

valorEsperado<-sum(demanda*p)
valorEsperado

## [1] 445

b) Suponga que cada unidad demandada genera 70 pesos de ganancia y que cada unidad ordenada cuesta 50 pesos. ¿Cuánto ganará o perderá la empresa en un mes si coloca una orden con base en su respuesta al inciso a y la demanda real de este artículo es de 300 unidades?

generaD<-300*70
generaD

## [1] 21000

ordenes<-valorEsperado*50
ordenes

## [1] 22250

generaD-ordenes

## [1] -1250

Con los datos que se obtuvieron del ejercicio se puedieron utilizar ciertas formulas de la probabilidad para obtener las respuestas en base al planteamiento.