为什么for-loop和函数在R中占用不同的时间

Question

我想说我想使用for-loop

打印矢量x

         x <- 1:1000

         ptm <- proc.time()
         for(i in x){
             print(i)
              }
         proc.time() - ptm

       user  system elapsed 
       0.62    0.02    0.62 

我也可以编写一个函数来做同样的事情：

    print.fun <- function(x){
                   return(x)
                 }

      ptm <- proc.time()
      print.fun(x)
      proc.time() - ptm

     user  system elapsed 
      0.24    0.00    0.23 

为什么这两种方法需要不同的时间，即使它们做同样的事情，即一个接一个地打印x？