## Not run:
# if(require("adegenet") && require("scatterD3")){
# ## load data
# data(woodmiceTrees)
#
# ## run findGroves: treescape+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$treescape$pco)
# }
# ## End(Not run)
Run the code above in your browser using DataLab