Function

R에서 함수를 정의하는 방법이다. 다음은 벡터 x의 성분에서 10보다 큰 성분을 출력하는 함수를 정의한 것이다. 

> x<-5:15
> above <- function(x,n){
+     use <- x > n
+     x[use]
+ }
> above(x,10)
[1] 11 12 13 14 15

 

다음은 주어지는 행렬에서 열 성분들의 평균을 구하여 출력하는 프로그램이다. y 행렬의 열의 수를 세고 그것을 바탕으로 'means'라는 numeric 벡터를 생성한다. 그리고 이 벡터의 각 성분에 열의 평균을 구하여 입력한다. 마지막으로 means 벡터를 출력한다. 

> columnmean <- function(y){
+     nc <- ncol(y)
+     means <- numeric(nc)
+     for(i in 1:nc){
+         means[i] <- mean(y[,i])
+     }
+     means
+ }
> columnmean(airquality)
[1]        NA        NA  9.957516 77.882353  6.993464
[6] 15.803922