2011-10-18 15 views

risposta

33

Utilizzare sample sulle righe con replace=TRUE o replace=FALSE.

Se X è la vostra matrice originale poi

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

o

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

dovrebbe funzionare. (Potrebbe essere più leggibile se si sceglie il campione di prima: s <- sample(...) e poi in subset: newmat <- X[s,])

8

utilizzare la funzione sample:

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

Con la sostituzione:

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 

sostituzione wihtout:

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

Questo se ems per funzionare meglio con i frame di dati:

sample_df<-x[sample.int(nrow(x),size=100,replace=TRUE),] 
Problemi correlati