Inventario Refrigeradoras

Se definen variables y las distribuciones de probabilidad para la demanda y el tiempo de abatecimiento

Se establece los ciclos for para la simulación

##Se comienza con un ciclo for para el punto de reorden, que es el nivel de inventario en el cual se va a realizar un pedido
 for (n in 0:9) {
  #ciclo de cantidad de pedido
    inv0 <- 0
    invf <- 10
    insatisfechos <- 0
    insatifechos.totales <- 0
    reabaste <- numeric(30)
    
    #Se inicia el ciclo por cada día, el inv0 y el invf son el inventario inicial y final respectivamente, y cada día se va calculando como quedan los inventarios y los clientes insatisfechos
    for ( d in 1:30) {
      inv0 <- invf + reabaste[d] 
      if (inv0 < demanda[d]){
        invf <- 0
        insatisfechos <- demanda[d]- inv0 
      }
      else if (inv0 >= demanda[d]){
        invf <- inv0 - demanda[d]
        insatisfechos <- 0}
      insatifechos.totales <- insatifechos.totales + insatisfechos
      reorden <- 0
      
      # Si el inventario final es menor al punto de reorden se hace pedido
      if (invf <= n){
        reabaste[d+1+t_abas[d]] <- 10 - invf
        reorden <- 10 -invf}
      ## Se guarda en el data frame de todos los datos por punto de reorden
      nuevo <- data.frame (nivel=n, Dia=d, Inventario_inicial=inv0, Reabastecimiento=reabaste[d], demanda=demanda[d], Inventario_final=invf,NoAtendidos=insatisfechos, pedido=reorden)
      data <- rbind(data, nuevo)  
    }
    
    ##Se guarda el total de insatisfechos
    total.mes <- insatifechos.totales
    row <- data.frame (Nivel=n, Clientes_insatisfechos=total.mes)
    Totales <- rbind(Totales, row) 
}

## Como se grabaó el total de clientes insatisfechos con cada nivel de reorden, se puede graficar y observar cual es el nivel o niveles de reorden que provocan la menor cantidad de clientes insatisfechos

View(print(Totales))

##    Nivel Clientes_insatisfechos
## 1      0                      7
## 2      1                      7
## 3      2                      9
## 4      3                      4
## 5      4                      4
## 6      5                      1
## 7      6                      1
## 8      7                      0
## 9      8                      0
## 10     9                      0

plot(Totales$Nivel, Totales$Clientes_insatisfechos)

Conclusiones

El nivel de inventario con el cual se debe de reabastecer de refrigeradoras puede ser de 7, 8 o 9 refrigeradores, ¿cuál nivel tomar? dependen exclusivamente de los costos de reorden y la capacidad de despacho del proveedor.

El nivel de reorden que genera la mayor cantidad de clientes insatisfechos es cuando el inventario de refrigeradoras es igual a 2.