Untitled

R Markdown

# 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)
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 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