2011-10-18 62 views

回答

33

replace=TRUEreplace=FALSE的行上使用sample

如果X是你原來的矩陣,然後

X[sample(nrow(X),size=5,replace=TRUE),] 

X[sample(nrow(X),size=5,replace=FALSE),] 

應該工作。

8

使用sample功能:

x <- matrix(1:1000, nrow=100) 

隨着置換:

x[sample(1:100, 5, replace=TRUE), ] 
    [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] 
[1,] 19 119 219 319 419 519 619 719 819 919 
[2,] 51 151 251 351 451 551 651 751 851 951 
[3,] 42 142 242 342 442 542 642 742 842 942 
[4,] 48 148 248 348 448 548 648 748 848 948 
[5,] 73 173 273 373 473 573 673 773 873 973 

Wihtout替換:

(: s <- sample(...)然後子集 newmat <- X[s,]如果首先選擇所述樣品可能更可讀的)
x[sample(1:100, 5, replace=FALSE), ] 
    [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] 
[1,] 64 164 264 364 464 564 664 764 864 964 
[2,] 67 167 267 367 467 567 667 767 867 967 
[3,] 20 120 220 320 420 520 620 720 820 920 
[4,] 17 117 217 317 417 517 617 717 817 917 
[5,] 6 106 206 306 406 506 606 706 806 906 
0

This se ems更好地處理數據幀:

sample_df<-x[sample.int(nrow(x),size=100,replace=TRUE),] 
相關問題