Definimos las probabilidades dadas

P_dolar_baja <- 0.12
P_dolar_estable <- 0.18
P_dolar_sube <- 0.7

Probabilidades condicionales

P_prod_sube_dolar_baja <- 0.65
P_prod_sube_dolar_estable <- 0.45
P_prod_sube_dolar_sube <- 0.1  # Corrección aquí
P_prod_baja_dolar_sube <- 0.9

1.Probabilidad de que los productos aumenten de precio

P_prod_sube <- (P_prod_sube_dolar_baja * P_dolar_baja) +
               (P_prod_sube_dolar_estable * P_dolar_estable) +
               (P_prod_sube_dolar_sube * P_dolar_sube) # Ajuste aquí
cat("Probabilidad de que los productos aumenten de precio:", P_prod_sube, "\n")
## Probabilidad de que los productos aumenten de precio: 0.229

2.Probabilidad de que los productos bajen o el dólar baje

P_prod_baja <- 1 - P_prod_sube
P_prod_baja_dolar_baja <- (1 - P_prod_sube_dolar_baja) * P_dolar_baja

P_dolar_baja_o_prod_baja <- P_prod_baja + P_dolar_baja - P_prod_baja_dolar_baja

cat("Probabilidad de que los productos bajen o el dólar baje:", P_dolar_baja_o_prod_baja, "\n")
## Probabilidad de que los productos bajen o el dólar baje: 0.849

3.Probabilidad de que el dólar esté estable y los productos bajen

P_prod_baja_dolar_estable <- (1 - P_prod_sube_dolar_estable) * P_dolar_estable

cat("Probabilidad de que el dólar esté estable y los productos bajen:", P_prod_baja_dolar_estable, "\n")
## Probabilidad de que el dólar esté estable y los productos bajen: 0.099

4.Probabilidad de que el producto aumente si el dólar aumenta

P_prod_sube_dado_dolar_sube <- P_prod_sube_dolar_sube

cat("Probabilidad de que el producto aumente si el dólar sube:", P_prod_sube_dado_dolar_sube, "\n")
## Probabilidad de que el producto aumente si el dólar sube: 0.1

5.Probabilidad de que el producto aumente si el dólar aumenta

P_prod_baja_total <- P_prod_baja
P_dolar_estable_y_prod_baja <- (1 - P_prod_sube_dolar_estable) * P_dolar_estable
P_dolar_estable_dado_prod_baja <- P_dolar_estable_y_prod_baja / P_prod_baja_total

cat("Probabilidad de que el dólar esté estable si el producto baja:", P_dolar_estable_dado_prod_baja, "\n")
## Probabilidad de que el dólar esté estable si el producto baja: 0.1284047

Visualización de los resultados en gráficos

library(ggplot2)

probabilidades <- data.frame(Evento = c("P(producto sube)", "P(producto baja o dólar baja)", "P(dólar estable y producto baja)", "P(producto sube | dólar sube)", "P(dólar estable | producto baja)"),
                             Probabilidad = c(P_prod_sube, P_dolar_baja_o_prod_baja, P_prod_baja_dolar_estable, P_prod_sube_dado_dolar_sube, P_dolar_estable_dado_prod_baja))

ggplot(probabilidades, aes(x = Evento, y = Probabilidad, fill = Evento)) +
  geom_bar(stat = "identity") +
  theme_minimal() +
  labs(title = "Probabilidades Calculadas", y = "Probabilidad", x = "Evento") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

Reflexiones para la empresa.

La fluctuación del dólar tiene un impacto directo en los precios de los productos. Cuando el dólar aumenta, los productos tienden a bajar de precio en la mayoría de los casos.

Es más probable que los productos bajen de precio que suban. Esto se debe a la combinación de una alta probabilidad de que el dólar suba y el hecho de que en esta situación los productos bajan en el 90% de los casos.

La estabilidad del dólar no garantiza estabilidad en los precios. Aunque el dólar se mantenga estable, todavía hay una probabilidad significativa de que los productos suban (45%) o bajen (55%).

La empresa debe estar preparada para una alta probabilidad de que los productos bajen (77.1%). Esto puede tener implicaciones importantes para la planificación de precios, estrategias de venta y márgenes de ganancia en los próximos meses.