FUNCION PARA CLE

FUNCION

# 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_ordenar <- as.numeric(readline(prompt = "Ingrese el costo de ordenar por unidad: "))
  
  
  # Solicitar entrada de usuario para el costo de almacenar por unidad
  costo_almacenar <- 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_ordenar * demanda_anual) / costo_almacenar)
  
  # Calcular el costo anual por ordenar
  costo_anual_ordenar <- (demanda_anual / CLE) * costo_ordenar
  
  # Calcular el costo anual por almacenar
  costo_anual_almacenar <- (CLE / 2) * costo_almacenar
  
  # 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 para Sumco:", 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 para Sumco: NA