测试运行结果：
>ma <- matrix(c(1:4, 1, 6:8), nrow = 2)
>ma
[,1] [,2] [,3] [,4]
[1,]1317
[2,]2468
>apply(ma, 2, function(x)x/(mean(x)))
[,1] [,2] [,3] [,4]
[1,] 0.6666667 0.8571429 0.2857143 0.9333333
[2,] 1.3333333 1.1428571 1.7142857 1.0666667
apply函数参数帮助。
apply(X, MARGIN, FUN, ...)
Arguments
X
an array, including a matrix.
MARGIN
a vector giving the subscripts which the function will be applied over. E.g., for a matrix 1 indicates rows, 2 indicates columns, c(1, 2) indicates rows and columns. Where X has named dimnames, it can be a character vector selecting dimension names.
FUN
the function to be applied: see ‘Details’. In the case of functions like +, %*%, etc., the function name must be backquoted or quoted.
...
optional arguments to FUN.
函数主体可以是一系列表达式，这些表达式需要用大括号括起来：function(param1,,paramN){expr1exprM}讨论函数的定义告诉R软件“用何种方式进行计算”。例如，R软件没有内置计算变异系数的函数，因此你可以定义函数如下：>cvcv(1:10)[1]0.5504819第一行定义了名为cv的函数，第二行引用该函数，以1∶10作为其参数x的值。函数对参数应用函数主体中的表达式sd(x)/mean(x)进行计算并返回结果。定义函数后，我们可以在任何需要函数的地方应用它，例如可以作为lapply函数的第二个参数（参见方法6.2）：>cvlapply(lst,cv)函数主体如果包含多行表达式，则需要使用大括号来确定函数内容的起始和结束位置。下面这一函数采用了欧几里德算法计算两个整数的最大公约数：>gcdlapply(lst,function(x)sd(x)/mean(x))由于本书重点不在于介绍R的编程语言，这里不对R函数编程的细微之处进行解释。下面给出几个需要注意的地方：返回值所有函数都有一个返回值，即函数主体最后一个表达式值。你也可以通过return(expr)命令给出函数的返回值。值调用函数参数是“值调用”——如果你改变了函数中的参数值，改变只是局部的，并不会影响该参数所引用的变量值。局部变量你可以简单地通过赋值来创建一个局部变量，函数结束后该局部变量会消失。条件执行R语法中包含if语句，详情可以使用help(Control)命令查看。循环语句
