擺脫R中的for循環

Question

我想用不同的概率集合對一個給定的矢量進行採樣而不需要循環。有沒有辦法做到這一點？

例如，在這個代碼，我想用某種適用（）結構或任何真正取代了環..

a <- c(1,2,3) 
p <- matrix(c(.1,.1,.8,.1,.8,.1,.8,.1,.1), nrow=3) 
s <- matrix(ncol=5, nrow=3) 
for(i in 1:nrow(p)){ 
s[i,] <- sample(a, size=5, replace=T, prob=p[i,]) 
} 

感謝您的幫助！

Answer 1

apply上p本身：

t(apply(p, 1, sample, x=a, size=5, replace=TRUE)) 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 3 3 1 3 3 
[2,] 2 2 1 1 2 
[3,] 1 1 1 1 1 

編輯我在這裏functional::Curry，直到flodel指出，這是沒有必要的，因爲apply經由...允許命名參數給出了一個自動咖喱。