问题
如何定义一个R函数。
解决方案
使用关键字function，并在其后跟随函数参数列表和函数主体。其基本形式如下： function(param1, ...., paramN) expr
函数主体可以是一系列表达式，这些表达式需要用大括号括起来： function(param1, ..., paramN) { expr1 . . . exprM }
讨论
函数的定义告诉R软件“用何种方式进行计算”。例如，R软件没有内置计算变异系数的函数，因此你可以定义函数如下： > cv <- function(x) sd(x)/mean(x) > cv(1:10) [1] 0.5504819
第一行定义了名为cv的函数，第二行引用该函数，以1∶10作为其参数x的值。函数对参数应用函数主体中的表达式sd(x)/mean(x)进行计算并返回结果。
定义函数后，我们可以在任何需要函数的地方应用它，例如可以作为lapply函数的第二个参数（参见方法6.2）： > cv <- function(x) sd(x)/mean(x) > lapply(lst, cv)
函数主体如果包含多行表达式，则需要使用大括号来确定函数内容的起始和结束位置。下面这一函数采用了欧几里德算法计算两个整数的最大公约数： > gcd <- function(a,b) { if (b == 0) return(a) else return(gcd(b, a %% b)) }
R软件也允许使用匿名函数，匿名函数是没有函数名称但在单行的语句中很实用的函数。先前的例子中我们提到将cv函数作为lapply函数的一个参数，而若使用匿名函数直接作为lapply函数的参数，则能将原先的命令简化至同一行中： > lapply(lst, function(x) sd(x)/mean(x))
由于本书重点不在于介绍R的编程语言，这里不对R函数编程的细微之处进行解释。下面给出几个需要注意的地方：
返回值
所有函数都有一个返回值，即函数主体最后一个表达式值。你也可以通过return(expr)命令给出函数的返回值。
值调用
函数参数是“值调用”——如果你改变了函数中的参数值，改变只是局部的，并不会影响该参数所引用的变量值。
局部变量
你可以简单地通过赋值来创建一个局部变量，函数结束后该局部变量会消失。
条件执行
R语法中包含if语句，更多详情可以使用help(Control)命令查看。
循环语句
R语法中也包括for循环、while循环以及repeat循环语句。更多详情可以使用help(Control)命令查看。
全局变量
在函数中，你可以通过<<-操作符来改变全局变量的值，但此种方法不推荐使用。
另请参阅
有关如何定义函数，参见《An Introduction to R》（http://cran.r-project.org/doc/manuals/R-intro.pdf）和《R in a Nutshell》。2.12 定义函数
问题
如何定义一个R函数。
解决方案
使用关键字function，并在其后跟随函数参数列表和函数主体。其基本形式如下： function(param1, ...., paramN) expr
函数主体可以是一系列表达式，这些表达式需要用大括号括起来： function(param1, ..., paramN) { expr1 . . . exprM }
讨论
函数的定义告诉R软件“用何种方式进行计算”。例如，R软件没有内置计算变异系数的函数，因此你可以定义函数如下： > cv <- function(x) sd(x)/mean(x) > cv(1:10) [1] 0.5504819
第一行定义了名为cv的函数，第二行引用该函数，以1∶10作为其参数x的值。函数对参数应用函数主体中的表达式sd(x)/mean(x)进行计算并返回结果。
定义函数后，我们可以在任何需要函数的地方应用它，例如可以作为lapply函数的第二个参数（参见方法6.2）： > cv <- function(x) sd(x)/mean(x) > lapply(lst, cv)
函数主体如果包含多行表达式，则需要使用大括号来确定函数内容的起始和结束位置。下面这一函数采用了欧几里德算法计算两个整数的最大公约数： > gcd <- function(a,b) { if (b == 0) return(a) else return(gcd(b, a %% b)) }
R软件也允许使用匿名函数，匿名函数是没有函数名称但在单行的语句中很实用的函数。先前的例子中我们提到将cv函数作为lapply函数的一个参数，而若使用匿名函数直接作为lapply函数的参数，则能将原先的命令简化至同一行中： > lapply(lst, function(x) sd(x)/mean(x))
由于本书重点不在于介绍R的编程语言，这里不对R函数编程的细微之处进行解释。下面给出几个需要注意的地方：
返回值
所有函数都有一个返回值，即函数主体最后一个表达式值。你也可以通过return(expr)命令给出函数的返回值。
值调用
函数参数是“值调用”——如果你改变了函数中的参数值，改变只是局部的，并不会影响该参数所引用的变量值。
局部变量
你可以简单地通过赋值来创建一个局部变量，函数结束后该局部变量会消失。
条件执行
R语法中包含if语句，更多详情可以使用help(Control)命令查看。
循环语句
R语法中也包括for循环、while循环以及repeat循环语句。更多详情可以使用help(Control)命令查看。
全局变量
在函数中，你可以通过<<-操作符来改变全局变量的值，但此种方法不推荐使用。
