matrix:: 10 × 10


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

定義

test.matrix <-function(x)
{
    out<-NULL;
    for(j in 1:10){
        for(i in 1:10){
            f <- i * j;
            out<-cbind(out,c(f)); # 配列に代入
         }                        
    }
    print(matrix(out,i,j))
}


出力結果

test.matrix(a)
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]    1    2    3    4    5    6    7    8    9    10
[2,]    2    4    6    8   10   12   14   16   18    20
[3,]    3    6    9   12   15   18   21   24   27    30
[4,]    4    8   12   16   20   24   28   32   36    40
[5,]    5   10   15   20   25   30   35   40   45    50
[6,]    6   12   18   24   30   36   42   48   54    60
[7,]    7   14   21   28   35   42   49   56   63    70
[8,]    8   16   24   32   40   48   56   64   72    80
[9,]    9   18   27   36   45   54   63   72   81    90
[10,]   10   20   30   40   50   60   70   80   90   100