Помощь условных операторов для R

Question

Нам нужно выполнить следующие задачи:

Создать вектор темп со значениями (103,100,98). Если значение температуры больше 100, печатайте горячим способом, иначе печатайте хорошо.

Письменный код в виде

temp <- c(103,100,98)

var x <- temp

if(x > 100)
{
print("hot")
}
elseif
{
print("good")
}

, пожалуйста, помогите нам исправить наш код.

Answer 1

temp <- c(103,100,98)


my.function <- function(x){ifelse(x>100,"Bad","Good")}

# this creates a vector
my.function(temp)
[1] "Bad"  "Good" "Good"

# this prints on the console, element after element
for(i in 1:length(temp)){
  print(my.function(temp[i]))
}
[1] "Bad"
[1] "Good"
[1] "Good"

# a third alternative using your code
for(i in 1:length(temp)){
  if(temp[i] > 100)
  {
    print("hot")
  }
  else
  {
    print("good")
  }
}
[1] "hot"
[1] "good"
[1] "good"