R语言入门之编写自定义函数

if (cond) expr
if (cond)expr1else expr2

for (var in seq) expr

while (cond) expr

ifelse(test,yes,no)

myfunction <- function(arg1, arg2, ... ){
statements
return(object)
}

# 自己编写一个转置矩阵的函数
# 该函数功能和R中的函数t()一致
mytrans <- function(x) { 
##判断输入数据x是否是一个矩阵
##是矩阵就继续运行，否则就报警
  if (!is.matrix(x)) {
    warning("argument is not a matrix: returningNA")
    return(NA_real_)
  }
##新建一个空矩阵y用于储存后续的计算结果
## 将行和列互换就可求出转置矩阵
## 这里使用for循环对每个数进行遍历
## 小括号()和花括号{}一定是成对出现的
  y <- matrix(1, nrow=ncol(x), ncol=nrow(x)) 
  for (i in 1:nrow(x)) {
    for (j in 1:ncol(x)) {
      y[j,i] <- x[i,j] 
    }
  }
return(y)
}

# 检验结果
z <- matrix(1:10, nrow=5, ncol=2)
mytrans(z)