1つのベクトルの各要素を2番目のベクトルの各要素に追加します

r
1つのベクトルの各要素を2番目のベクトルの各要素に追加します

次のように、1つのベクターの各要素を別のベクターの各要素に追加しますが、forループは避けてください。 簡単な方法はありますか?

vadd <- function(vrow, vcol){
vmatrix <- matrix(nrow = length(vrow), ncol = length(vcol))
for(r in 1:length(vrow)){#rows
    for(c in 1:length(vcol)){#columns
        vmatrix[r, c] <- vrow[r] + vcol[c]
    }
}
return(vmatrix)
}

a <- c(1:10)
b <- c(3:4)
vadd(a, b)

敬具、ブライアン

  4  0


ベストアンサー

あなたが探しているのは `outer()`です:

> outer(a, b, "+")
      [,1] [,2]
 [1,]    4    5
 [2,]    5    6
 [3,]    6    7
 [4,]    7    8
 [5,]    8    9
 [6,]    9   10
 [7,]   10   11
 [8,]   11   12
 [9,]   12   13
[10,]   13   14

11


マトリックスに「b」を入れて、Rのリサイクルルールを活用できます。

a + matrix(b, nrow=length(a), ncol=2, byrow=TRUE)

3


できることの1つを次に示します。

a<-c(1:10)
b<-c(3:4)

matrix(b,length(a),2,byrow=TRUE)+a

3


タイトルとURLをコピーしました