## Not run:
# data(msats.g)
#
# # Run STRUCTURE
# sr <- structureRun(msats.g, k.range = 1:4, num.k.rep = 10)
#
# # Calculate Evanno metrics
# evno <- evanno(sr)
# evno
#
# # Run CLUMPP to combine runs for K = 2
# q.mat <- clumpp(sr, k = 3)
# q.mat
#
# # Plot CLUMPP results
# structurePlot(q.mat)
# ## End(Not run)
Run the code above in your browser using DataLab