R/bootstrap.R

'bootstrap' <-
function(sequence)
{ 
    nchar<-dim(sequence)[2]
    a<-sample(1:nchar,nchar,replace=TRUE)
    boot<-sequence[,a]
    boot
}
lliu1871/phybase documentation built on April 21, 2024, 3:16 a.m.