Un Modo Rapido per Eseguire Ripeti riga e Ripeti Colonna

Un modo rapido per ripetere la riga e la ripetizione col: Oggi ho lavorato su un programma di simulazione che mi richiede di creare una matrice ripetendo il vettore n volte (sia per riga che per colonna).
Anche il compito è estremamente semplice e richiede solo 1 riga per finire (10sec), devo pensare se l’argomento in rep deve essere uno o più volte e l’argomento in matrice è nrow o ncol. Mi ha distratto dal compito originale a cui sto lavorando.
Proprio ora, ho scritto una funzione rep.row e rep.col per fare ciò che voglio davvero fare. La prossima volta, non devo preoccuparmi di come utilizzare la matrice e il comando rep per ripetere un vettore per formare una matrice!

[sourcecod] 
rep.row<-function(x,n){ matrix(rep(x,each=n),nrow=n) } 
rep.col<-function(x,n){ matrix(rep(x,each=n), ncol=n, byrow=TRUE) } 
[/sourcecod]

x è il vettore da ripetere e n è il numero di replica. Esempio:

[sourcecod]
> rep.row(1:3,5)
[,1] [,2] [,3]
[1,]    1    2    3
[2,]    1    2    3
[3,]    1    2    3
[4,]    1    2    3
[5,]    1    2    3
> rep.col(1:3,5)
[,1] [,2] [,3] [,4] [,5]
[1,]    1    1    2    2    3
[2,]    1    1    2    3    3
[3,]    1    2    2    3    3
[/sourcecod]

TszKin Julian Chan

Leave a Reply