Проблемы с объявлением нескольких функций

Question

Я разрабатываю простой тест на R. Я придумал функцию, которая использует другую функцию для проверки, является ли число простым или нет, но одна из них не распознается

Я взял функцию для генерации треугольника Паскаля из другого потока и объявил ее сверху, а затем создал свою вторичную функцию.

ptest <- function(h) {
  for(i in h){
    x <- c(pascalTriangle(h)[h+1])
  } if(x%%h=0) {
    print(paste(h, "is a prime"))
  } else {
    print(paste(h, "is not a prime"))
  }
}

Я ожидал, что эта функция подставит треугольник Паскаля, превратит его в вектор и проанализирует остаток от деления, но когда я запускаю скрипт, он возвращает сообщение Error in ptest(2) : could not find function "ptest". Как я могу это исправить?