Function-定义新的函数

Functions通过function()来定义,可以当作R对像来保存
f <- function(arguments) {#自定义各种活动}

        Functions在R中相当于“第一个类别对象”,也就是说可以像R中其他对象一样来操作它,Functions能在其他的Functions中存在,其中的参数可以被传递,其返回值是最后的结果。在Functions中,都会有相应的参数,你可以定义参数的值 ,也并不是所有的参数的值都要来定义
R中functions的参数可以通过位置来定值,也可以通过命名等式来赋值
> args(sd)
function (x, na.rm = FALSE)
NULL #args(sd),可以看到sd相应的参数
> mydata <- rnorm(100)
> sd(mydata)
> sd(x = mydata)
> sd(x = mydata, na.rm = FALSE)
> sd(na.rm = FALSE, x = mydata)
> sd(na.rm = FALSE, mydata)
不建议最后两个,他们把默认参数的位置给改变了。
> args(lm)
function (formula, data, subset, weights, na.action,
method = “qr”, model = TRUE, x = FALSE,
y = FALSE, qr = TRUE, singular.ok = TRUE,
contrasts = NULL, offset, …)
lm(data = mydata, y ~ x, model = FALSE, 1:100)
lm(y ~ x, mydata, 1:100, model = FALSE) #根据位置来定义的参数值,所以位置必须一一对应。
大多数时候,命名参数非常有用,如果有许多参数而你又要用最后的一个参数的时候。
你可以只用记住该参数的符号,而不是该参数的位置。
f <- function(a, b = 1, c = 2, d = NULL) {
}
如果你不想参数为默认值,你也可以设置为NULL.
f <- function(a, b) {
a^2
}
f(2)
这个function不使用参数b,而2又在a的位置上,所以f(2)不会报错。
f <- function(a, b) {
print(a)
print(b)
}
> f(45)
[1] 45
Error in print(b) : argument “b” is missing, with no default
>
输出了45,准备print(b),所以会报错。

该参数于是还有很多参数会在另一个functions提到
也可以不用再提取另一个function的参数,但是你有不想都写出来
myplot <- function(x, y, type = “l”, …) {
plot(x, y, type = type, …)
}
> mean
function (x, …)
UseMethod(“mean”)
> args(paste)
function (…, sep = ” “, collapse = NULL)
> args(cat)
function (…, file = “”, sep = ” “, fill = FALSE,
labels = NULL, append = FALSE)
> args(paste)
function (…, sep = ” “, collapse = NULL)
> paste(“a”, “b”, sep = “:”)
[1] “a:b”
> paste(“a”, “b”, se = “:”)
[1] “a b :”
参考资料:

Roger D. Peng的《Computing for Data Analysis》

发表评论

电子邮件地址不会被公开。 必填项已用*标注