Nothing
## -----------------------------------------------------------------------------
library(ipADMIXTURE)
# # running area: ipADMIXTURE::human27pop_Qmat[[i]] is a Q matrix with K=i+1
h27pop_obj<-ipADMIXTURE(Qmat=ipADMIXTURE::human27pop_Qmat[[11]], admixRatioThs =0.15)
## -----------------------------------------------------------------------------
ipADMIXTURE::printClustersFromLabels(h27pop_obj,human27pop_labels)
## -----------------------------------------------------------------------------
ipADMIXTURE::plotAdmixClusters(h27pop_obj)
## -----------------------------------------------------------------------------
ipADMIXTURE::plotClusterLeaves(h27pop_obj)
## -----------------------------------------------------------------------------
out<-ipADMIXTURE::getPhyloTree(human27pop_Qmat,h27pop_obj$indexClsVec)
plot(out$tree, type = "unrooted")
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.