R语言的一个加法函数

## R语言中的加法函数
add4 <- function(x, y) {
  x + y  
}

一个复杂一些的R语言程序

## R语言程序
add2 <- function(x, y) {
	x + y
}

above10 <- function(x) {
	use <- x > 10
	x[use]
}

above <- function(x, n) {
	use <- x>n
	x[use]
}

columnmean <- function(y) {
	nc <- ncol(y) ##列数
	means <-numeric(nc) ##零向量 1 * nc 
	for(i in 1:nc) {
	means[i] <-  mean(y[, i], na.rm = removeNA)
  } ##for
	means
}