for 루프를 사용하여 매트릭스에서와 이블 관측치 저장

Question

for 루프를 사용하여 8 가지 모양 매개 변수를 기반으로와 이블 값을 시뮬레이트하는 코드를 작성했습니다. 나는 그것을 365 x 8의 행렬에 저장하고 결국 CSV로 내보내려고합니다.

내 코드는 다음이다 :

k <- seq(1.4,2.8,0.2) 
test <- matrix(rep(NA,365),nrow=365,ncol=8) 
for (i in k){ 
    wind.k <- mapply(rweibull,i,scale.k,MoreArgs=list(n=1)) 
    test[ ]<-as.matrix(wind.k) 
} 

결과 365 X8에 있지만 단지 모든 열에 대해 K = 2 포착 알. 누구든지 코드 수정에 도움이 될 수 있습니까?

미리 도움을 주셔서 감사합니다.

Answer 1

사용이 :

test <- matrix(rweibull(n=365*8, shape=k, scale=scale.k), nrow=365, ncol=8, byrow=TRUE) 

주 scale.k 것을는 길이 8 벡터해야합니다.