R语言中间变量操作——循环

循环求每一行的平均值： 

a = 1:100
a
dim(a)=c(10,10)
a
# 简单的for循环,输出每一行的平均值
for(i in 1:nrow(a)){
  print(mean(as.numeric(a[i,])))
}

# apply系列。专门针对矩阵或者数据框
# 行为1，列为2
apply(a,1,function(x){
  mean(x)
})

结果：

> a = 1:100
> a
  [1]   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31
 [32]  32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62
 [63]  63  64  65  66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90  91  92  93
 [94]  94  95  96  97  98  99 100
> dim(a)=c(10,10)
> a
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    1   11   21   31   41   51   6