Escuela Superior Politécnica de Chimborazo

• Costo de lote económico y costo total de inventario

calcular_eoq <- function(demanda_anual, costo_pedido, costo_mantenimiento) {
  # Calcula el lote económico de pedido (EOQ)
  eoq <- sqrt((2 * demanda_anual * costo_pedido) / costo_mantenimiento)
  
  # Calcula el costo total anual (TAC)
  tac <- ((demanda_anual / eoq) * costo_pedido) + ((eoq / 2) * costo_mantenimiento)
  
  # Retorna los resultados en una lista
  resultado <- list(
    EOQ = eoq,
    TAC = tac
  )
  return(resultado)
}

# Ejemplo

demanda_anual <- 1000  # Demanda anual
costo_pedido <- 10    # Costo por pedido
costo_mantenimiento <- 0.5  # Costo de mantenimiento por unidad por año

resultado <- calcular_eoq(demanda_anual, costo_pedido, costo_mantenimiento)
print(paste("La cantidad óptima de pedido (EOQ) es:", resultado$EOQ))

## [1] "La cantidad óptima de pedido (EOQ) es: 200"

print(paste("El costo total anual (TAC) es:", resultado$TAC))

## [1] "El costo total anual (TAC) es: 100"