if (FALSE) {
if(require("adegenet") && require("scatterD3")){
## load data
data(woodmiceTrees)
## run findGroves: treespace+clustering
res <- findGroves(woodmiceTrees, nf=5, nclust=6)
## basic plot
plotGrovesD3(res)
## adding tree labels
plotGrovesD3(res, treeNames=1:201)
## customizing: vary the colour and the symbol by group
plotGrovesD3(res, symbol_var=res$groups)
## example with no group information
plotGrovesD3(res$treespace$pco)
}
}
Run the code above in your browser using DataLab