Nothing
## -----------------------------------------------------------------------------
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()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.