以下のコードでforループの代わりにapplylike関数を使用する方法はありますか？
a <- array(rnorm(100,0,1), c(10, 5, 2)) ; a
b <- matrix(rnorm(20,0,1), 10, 2) ; b
m <- matrix(NA, 10, 2) ; m
for (i in 1:2){ m[,i] <- fitted(lm(b[,i]~a[,,i])) }
m
どうもありがとう
あなたはsapply/lapplyここで使うことができます：
m1 <- sapply(seq_len(ncol(b)), function(i) fitted(lm(b[,i]~a[,,i])))
seq_len(ncol(b))シーケンス作成1:ncol(b)に似ている1:2、あなたの中にforループと内部コードforのループとsapply同じままに。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加