R语言 编写自定义函数

自定义函数

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