Включите основную строку кода в функцию в R

Question

У меня есть основные строки кода я написал и успешно выполнил:

if((new.weather.2013) > cut.point.90 | (new.weather.2013) < cut.point.015) {print("Weather is extreme")} else {print("Weather is not extreme")} 

Я хотел бы, чтобы превратить это в повторяемой функции. Я до сих пор довольно новичок в R, и мне трудно работать. Вот что я пробовал до сих пор (это не сработало):

weather.test <- function(test.weather) 
{ 
    if((test.weather) > cut.point.90 | 
     (test.weather) < cut.point.015) 
return{print ("Weather is extreme")} else 
return{print ("Weather is not extreme")} 
} 

Может ли кто-нибудь указать мне в правильном направлении?

EDIT: чтобы уточнить, я беру числовое значение, пропуская его через функцию, чтобы определить, является ли значение экстремальным выбросом (т. Е. Выходит за пределы разрезов). Если он выходит за пределы этих точек, он считается экстремальным, и я хочу вернуть это утверждение. Если он не выходит за пределы этого экстремального диапазона, это считается нормальным, и я хочу вернуть «погода не экстремальная». Если вы видите вышеприведенное утверждение, это делает то же самое, что я пытаюсь сделать здесь; Я просто хочу сделать его повторяемой функцией.

Answer 1

Я думаю, что вы хотите

weather.test <- function(test.weather) { 
    ifelse((test.weather > cut.point.90 | 
     test.weather < cut.point.015), 
     "Weather is extreme", 
     "Weather is not extreme") 
} 

#test 
cut.point.90 = .9 
cut.point.015 = .015 
weather.test(c(0,.5,1)) 

IfElse() является Векторизованной формой стандарта, если оператор, который может работать на векторах