ループなしで、さまざまな確率のセットで特定のベクトルをサンプリングしたいと思います。これを行う方法はありますか？
たとえば、このコードでは、ループをある種の apply() 構造または実際に何かに置き換えたい..
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,])
}
助けてくれてありがとう！