R.乗算要素の上にリストと合計のすべての要素に異なるスカラー

Question

リストオブジェクトとベクトルを仮定します

lst <- list(a = matrix(1:9, 3), b = matrix(2:10, 3)) 
vec <- c(2, 3) 

そして私は

2 * a + 3 * b 

のような結果を取得したいです私はこれを解決する

matrix(apply(mapply("*", lst, vec), 1, sum), 3, 3) 

しかし、これは少し面倒です。

同じ結果を得る効率的な方法はありますか？

Answer 1

これ以上効率的かどうかはわかりませんが、少し洗練されたアイデアがあります。乗算にはMap()を使用し、合計にはReduce()を使用できます。

Reduce("+", Map("*", lst, vec)) 
#  [,1] [,2] [,3] 
# [1,] 8 23 38 
# [2,] 13 28 43 
# [3,] 18 33 48 

また、あなたのコードでは、あなたはrowSums()とapply()呼び出しを置き換えることができます。おそらくあなたがしたことの効率を改善するでしょう。

Answer 2

別のオプションは、リストの順序をループであり、2つの要素

lst[[1]]*vec[1] + lst[[2]] * vec[2]