미리 할당 된 행렬을 R

Question

으로 채 웁니다. repeat의 각 반복에서 행렬에 열을 추가하는 R 프로그램을 작성하고 있습니다. repeat을 선택했기 때문에 현재 반복 번호에 액세스 할 수 없습니다. cbind을 사용하여 행렬을 만들 수 있지만 느리다는 것을 알고 있습니다. 현재 색인에 대한 지식없이 사전 할당 된 행렬을 열별로 채우는 방법이 있습니까?

Answer 1

매트릭스의 크기를 테스트하고 그 크기를 청크별로 늘리십시오. 다음은 예입니다.

set.seed(42) 
mat <- matrix(NA, ncol=2, nrow=10) 
i <- 1 
repeat { 
    if (i > nrow(mat)) mat <- rbind(mat, matrix(NA, ncol=2, nrow=10)) 
    x <- rnorm(1) 
    y <- rnorm(1, mean=3) 
    mat[i,] <- c(x, y) 
    if (x > y) break 
    i <- i+1 
} 

mat[seq_len(i),] 

매트릭스를 필요에 맞게 늘리십시오.