내 샘플을 서브 세트 및 루프에서 저장

Question

그때 나는이 새로운 표본을 저장 10 행과 두 colums

내가하고 싶은 것은 5 행 내 데이터에서 10 교체없이 시간과 샘플입니다 설정하는 간단한 데이터를 10 개의 다른 이름이 있습니다.

for (i in 1:10){ 

    print(Data[sample(nrow(Data), size = 5, replace= FALSE),] -> i) 
    write.table(i, file = "data_i", row.names = F, col.names = F) 
} 

를하지만 새 테이블에 난 단지 설정 내 데이터의 각 값에 하나 개의 표본과 " "로 얻을 :

이 내가 가진 것입니다.

Answer 1

루프 내에서 반복 변수 i을 재 할당합니다. 또한 파일을 여러 번 덮어 쓸 수 있도록 파일 이름이 하나뿐입니다. 사용해보기 :

for (i in 1:10){ 
    print(Data[sample(nrow(Data), size = 5, replace= FALSE),] -> x) 
    write.table(x, file = paste0("data_", i), row.names = F, col.names = F) 
    }