R/bootstrap.R

`bootstrap` <-
function(sequence)
{ 
    nchar<-dim(sequence)[2]
    a<-sample(1:nchar,nchar,replace=TRUE)
    boot<-sequence[,a]
    boot
}
bomeara/phybase documentation built on May 12, 2019, 11:35 p.m.