Control de Inventario

# Definir la función
calcular_costos_sumco <- function() {
  
  
  # Solicitar el nombre el cliente
  
  Hola <- as.character(readline(prompt = "Ingrese nombre cliente: "))
  
  # Solicitar entrada de usuario para el costo de ordenar por unidad
  costo_xordenar <- as.numeric(readline(prompt = "Ingrese el costo de ordenar por unidad: "))
  
  
  # Solicitar entrada de usuario para el costo de almacenar por unidad
  costo_xalmacenar <- as.numeric(readline(prompt = "Ingrese el costo de almacenar por unidad: "))
  
  # Solicitar entrada de usuario para la demanda anual
  demanda_anual <- as.numeric(readline(prompt = "Ingrese la demanda anual: "))
  
  # Calcular la cantidad económica de pedido (CLE) utilizando la fórmula de Wilson
  CLE <- sqrt((2 * costo_xordenar * demanda_anual) / costo_xalmacenar)
  
  # Calcular el costo anual por ordenar
  costo_anual_ordenar <- (demanda_anual / CLE) * costo_xordenar
  
  # Calcular el costo anual por almacenar
  costo_anual_almacenar <- (CLE / 2) * costo_xalmacenar
  
  # Calcular el costo total anual para Sumco
  costo_total_anual <- costo_anual_ordenar + costo_anual_almacenar
  
  # Mostrar los resultados
  cat("\nResumen de costos para Sumco:\n")
  cat("Cantidad Económica de Pedido (CLE):", CLE, "\n")
  cat("Costo Anual por Ordenar:", costo_anual_ordenar, "\n")
  cat("Costo Anual por Almacenar:", costo_anual_almacenar, "\n")
  cat("Costo Total Anual por inventario:", costo_total_anual, "\n")
  
}

# Llamar a la función
calcular_costos_sumco()

## Ingrese nombre cliente: 
## Ingrese el costo de ordenar por unidad: 
## Ingrese el costo de almacenar por unidad: 
## Ingrese la demanda anual: 
## 
## Resumen de costos para Sumco:
## Cantidad Económica de Pedido (CLE): NA 
## Costo Anual por Ordenar: NA 
## Costo Anual por Almacenar: NA 
## Costo Total Anual por inventario: NA