U2A8

Puesto de Milanesas

Pregunta 1

• ¿Te gustan las milanesas?

dbinom(1, size = 2, prob = 1)+
  dbinom(0, size=2, prob = 0)

## [1] 1

Esperanza matemática

Si <- (10*1)
Si

## [1] 10

No <- (10*0)
No 

## [1] 0

Si+No 

## [1] 10

EspMat <- (1*1 + 1*0)
EspMat

## [1] 1

Todas las personas encuestadas dijeron que si le gustaban las milanesas. Ninguno dijo que no. La esperanza matemática aquí es que todos te digan que si.

Pregunta 2

• ¿Cuánto estaría dispuesto a pagar por una Milanesa Napolatina?

dbinom(85, size = 5, prob = 0.1)+
  dbinom(100, size = 5, prob = 0.2)+
  dbinom(125, size = 5, prob = 0.5)+
  dbinom(150, size = 5, prob = 0.1)+
  dbinom(175, size = 5, prob = 0.1)

## [1] 0

Esperanza Matemática

pesos85 <- (10*0.1)
pesos85

## [1] 1

pesos100 <- (10*0.2)
pesos100

## [1] 2

pesos125 <- (10*0.5)
pesos125

## [1] 5

pesos150 <- (10*0.1)
pesos150

## [1] 1

pesos175 <- (10*0.1)
pesos175

## [1] 1

pesos100+pesos125+pesos150+pesos175+pesos85

## [1] 10

EspMatNapolitano <- (85*0.1 + 100*0.2 + 125*0.5 + 150*0.1 + 175*0.1)
EspMatNapolitano

## [1] 123.5

La mitad de los encuestados esta dispuesto a pagar 125 pesos por una milanesa napolitana. Dos personas están dispuestos a pagar 100 pesos. El resto de las personas se reparten entre 175, 150 y 85 pesos, respectivamente. La esperanza matemática aquí es de 123.5 pesos. Quiere decir que para que más personas te compre una Milanesa Napolitana, le tienes que ofrecer a 123.5 pesos.