example from Programming in R

myfct <- function(x1, x2=5) {                 
z1 <- x1/x1;
z2 <- x2*x2               
myvec <- c(z1, z2)                 
return(myvec)}

save as myfct.R

##Executing an R script from the R console
source("myfct.R")
myfct(x1=2, x2=5)

2# epoh 首先谢谢二楼不吝赐教，可是我之前这么试过，好像不管用啊，好像 source("integrate.R")
错误于as.vector(x, mode) :
  cannot coerce type 'builtin' to vector of type 'any'   这个错误，请教下大侠，该怎么处理？

貌似是integrate.R里的错误，你这个脚本有问题……而不是source的问题

支持一下  ，正在学习

可能是你写的代码有点问题吧。比如vector付给了scalar之类的东西。