用source()函数可以运行保存在一个文本文件中的源程序。 比如，如下内容保存在文件ssq.r中：

sum.of.squares <- function(x){  sum(x^2)}

用如下source()命令运行：

source("ssq.r")

运行后就可以调用自定义函数sum.of.squares()了。