## ----------------------------------------------------------------------------- library(rSWeeP) baseMatrix <- orthBase(160000,10) ## ----------------------------------------------------------------------------- path <- system.file(package = "rSWeeP", "extdata", "exdna.fas") ## ----------------------------------------------------------------------------- return <- sWeeP(path,baseMatrix) distancia <- dist(return, method = "euclidean") tree <- hclust(distancia, method="ward.D") plot(tree, hang = -1, cex = 1) ## ----label='Session information', eval=TRUE, echo=FALSE----------------------- sessionInfo()