自定义函数

R语言实际上是函数的集合，用户可以使用base，stats等包中的基本函数，也可以编写自定义函数完成一定的功能

一个函数的结构大致如下所示

myfunction <- function(arglist) {
statements
return(object)
}

其中，myfunction为函数名称，arglist为函数中的参数列表，大括号{}内的语句为函数体，函数参数是在函数体内部将要处理的值，函数中的对象只在函数内部使用

示例1：

myAdd <- function(x, y) {
return(x+y)
}
a <- myAdd(10000, 456)
a
#
运行结果：
#
[1] 10456

示例2：

#
计算标准差
sd2 <- function(x) {
if(!is.numeric(x)) {
stop("the input data must be numeric!n")
}
if(length(x)==1) {
stop("can not comput sd for one number, a numeric vector required.n")
}
x2 <- c()
meanx <- mean(x)
for(i in 1:length(x)) {
xn <- x[i] - meanx
x2[i] <- xn^2
}
sum2 <- sum(x2)
sd2 <- sqrt(sum2/(length(x)-1))
return(sd2)
}
sd2(1)
#
运行结果：
#
Error in sd2(1) :
#
can not comput sd for one number, a numeric vector required.
sd2(c("1", "2"))
#
运行结果：
#
Error in sd2(c("1", "2")) : the input data must be numeric!
sd2(c(2, 4, 6, 8, 10))
#
运行结果：
#
[1] 3.162278

最后

以上就是热情向日葵为你收集整理的R语言 编写自定义函数自定义函数的全部内容，希望文章能够帮你解决R语言 编写自定义函数自定义函数所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。