对应《学习R》中第六章，学习之后整理。
本章目标
- 函数由什么组成，怎么样编写函数
- 变量的作用域
函数
R允许用户自己定义函数，当你的代码中有多次重复的代码块时，定义一个函数可能会更简单易读。
函数的组成
要创建一个自己的函数，首先要了解一下函数的结构，看看他的组成。
> rt
function (n, df, ncp)
{
if (missing(ncp))
.Call(C_rt, n, df)
else rnorm(n, ncp)/sqrt(rchisq(n, df)/df)
}
<bytecode: 0x0000000003654558>
<environment: namespace:stats>
以上是rt()函数,他的作用是生成基于T分布的随机数。
阅读rt()函数的代码可以看出此函数有三个参数，n代表要生成的随机数的个数，df代表自由度值，ncp代表一个可选的非中心参数。在大括号之间是函数的内部代码，每次调用此函数，就会执行此代码。
创建函数
在了解函数结构后，我们可以创建属于自己的函数，
如创建一个计算直角三角形斜边长的的函数：
> hypoyenuse <- function(x, y){
sqrt(x ^ 2 + y ^ 2)
}
> hypoyenuse(3, 4)
[1] 5
调用函数时，输入x，y值的时候如果不命名参数，函数会按位置匹配它们，需要改变的话可以命名参数：
> hypoyenuse(y = 3, x = 4)
[1] 5
如果有需要，可以给参数添加默认值：
> hypoyenuse <- function(x = 3, y = 4){
sqrt(x ^ 2 + y ^ 2)
}
> hypoyenuse()
[1] 5
> hypoyenuse(5, 12)
[1] 13
即不对函数输入参数时，默认x，y分别为3，4。
当然函数的参数默认值不一定是数字，你甚至可以把R代码放进去。
变量的作用域
变量的作用域指的是你可以在哪看到使用变量，当你在函数内部定义一个函数时，该函数下的语句和该函数下的子函数都可以使用这个变量。例如：
f <- function(x){
y <- 1
g <- function(x){
(x + y) / 2 #y是函数f下的参数而不是函数g下的
}
g(x)
}
> f(5)
[1] 3
但是如果修改一下把函数g定义的位置更换一下：
> f <- function(x){
+ y <- 1
+ g(x)
+ }
> g <- function(x){
+ (x + y) / 2
+
+ }
> f(5)
Error in g(x) : object 'y' not found
第一个例子中f函数是g函数的父函数，所以y可以被发现并使用，但是第二个例子中g函数的父环境是全局环境，不包含y所以报错。
所以R寻找变量的顺序就可以总结为：当前环境>父环境>.....>全局环境。
这种搜寻变量的方式很有用，但它也有缺陷：
h <- function(x){
x * y
}
这个函数看上去并不能运行，但是当你目前环境中包含了一个y变量时：
> h <- function(x){
+ x * y
+ }
> y <- 1
> h(5)
[1] 5
> h(y)
[1] 1
所以对于全局变量的使用应该慎重。
