Синтаксис оператора if / else с использованием R

Question

У меня есть семантический вопрос о правильном синтаксисе для простого оператора if, который я пытаюсь написать с помощью R (имеющего опыт программирования в Python).Что бы R эквивалентно выражению Python:

def zsco(data, mean, sd):
    if sd==0:
        z=0
    else:
        z=abs((data-mean)/sd)
    return z

Спасибо!:)

Answer 1

Аналогичным способом записи в R будет

zscoR <- function(data, mean, sd) {
     if(sd == 0) {
           0
       } else {
       abs((data - mean)/sd)
     }
    }

Если все входные параметры имеют одинаковую длину и больше 1, используйте ifelse

zscoRM <- function(data, mean, sd) {
   ifelse(sd == 0, 0, abs((data - mean)/sd))
    }