FUNCION

calcular_CLE <- function(dem_a, costo_orden, costo_alm) {
  CLE <- sqrt((2 * dem_a * costo_orden) / costo_alm)
  return(CLE)
}

INGRESAR LOS DATOS

dem_a <- as.numeric(readline(prompt = "Ingrese la demanda anual de unidades: "))
Ingrese la demanda anual de unidades: 
costo_orden <- as.numeric(readline(prompt = "Ingrese el costo por orden: "))
Ingrese el costo por orden: 
costo_alm <- as.numeric(readline(prompt = "Ingrese el costo anual de almacenamiento por unidad: "))
Ingrese el costo anual de almacenamiento por unidad: 
resul <- calcular_CLE(dem_a, costo_orden, costo_alm)
cat("El numero óptimo de unidades por orden es :", round(resul), "unidades")
El numero óptimo de unidades por orden es : NA unidades

FUNCION CON LOS DATOS

calcular_CLE <- function(dem_a, costo_orden, costo_al) {
  CLE <- sqrt((2 * dem_a * costo_orden) / costo_al)
  return(CLE)
}

Datos proporcionados

dem_a <- 1000 
costo_orden <- 10  
costo_al <- 0.50
CLE_resultado <- calcular_CLE(dem_a, costo_orden, costo_al)

Mostrar el resultado

cat("El número óptimo de unidades por orden es:", round(CLE_resultado),"unidades")
El número óptimo de unidades por orden es: 200 unidades