声明多个功能的问题

Question

我正在R上设计素数测试。我想出了一个函数，该函数利用另一个函数来测试数字是否为素数，但是其中一个未被识别

我使用了一个从另一个线程生成Pascal Triangle的函数，并在顶部声明了它，然后创建了第二个函数。

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"))
  }
}

我希望此函数将Pascal Triangle子集化，将其转换为矢量并分析除法的其余部分，但是当我运行脚本时，它将返回消息Error in ptest(2) : could not find function "ptest"。我该如何解决？