请教各位大神初学的问题，我按要求编写了下面这段代码：
        studID <- 2014145653
set.seed(studID)
n<- 10000
num<- sample(1:100000,n,replace=TRUE)
findPrime <- function(num){
     p <- 2:num
     i <- 1
     while (p[i] <= sqrt(n)) {
         p <- p[p %% p[i] != 0 | p==p[i]]
         i <- i+1
     }
     out<-list(length(p),sort(p[length(p)-9:0],decreasing=TRUE))
     return(out)
}
   
      输入findprime(num)后，提示没有findprime这个函数？请问这是那种情况造成的？