ifelse() vectorizado

Parte de la sección Lógica y flujo del Journey de R de Coddy. Lección 48 de 64.

if prueba una condición. Cuando recibe un vector de varios valores, se detiene con el error the condition has length > 1. ifelse(test, yes, no) funciona elemento por elemento y devuelve un resultado por cada elemento:

temps <- c(12, 25, 31, 18)
print(ifelse(temps > 20, "warm", "cool"))

Salida:

[1] "cool" "warm" "warm" "cool"

yes y no pueden ser vectores de la misma longitud, por lo que cada elemento puede obtener su propio valor calculado:

price <- c(40, 120, 75)
final <- ifelse(price > 100, price * 0.9, price)
print(final)

Salida:

[1]  40 108  75

Anida llamadas a ifelse() para obtener más de dos resultados. Las condiciones se comprueban en orden para cada elemento:

scores <- c(95, 72, 48, 81)
grade <- ifelse(scores >= 90, "A", ifelse(scores >= 70, "B", "C"))
print(grade)

Salida:

[1] "A" "B" "C" "B"

ifelse() es útil para una nueva columna del marco de datos, donde cada fila necesita su propia etiqueta:

df <- data.frame(item = c("tea", "oil"), stock = c(0, 8))
df$status <- ifelse(df$stock == 0, "sold out", "available")
print(df)

Salida:

  item stock    status
1  tea     0  sold out
2  oil     8 available

Desafío

Fácil

Completa shipping(weights). Devuelve el costo de envío de cada paquete, unidos con , : los paquetes de hasta 1 kg cuestan 4, los de hasta 5 kg cuestan 9 y los paquetes más pesados cuestan 2 por kg. Usa ifelse(), no un bucle.

El código proporcionado lee los pesos como una línea separada por comas e imprime el valor devuelto.

Pruébalo tú mismo

shipping <- function(weights) {
  # Escribe tu código aquí
  ""
}

# Código de entrada/salida suministrado: mantenlo tal como está
input <- suppressWarnings(readLines(file("stdin")))
cat(shipping(as.numeric(strsplit(input[1], ",")[[1]])), sep = "\n")