bestK: Determine a suitable K value from multiple Structure runs
In sa-lee/starmie: Population Structure Model Inference and Visualisation

Description Usage Arguments Details Value Examples

Determine a suitable K value from multiple Structure runs

1	bestK(x, method, plot = TRUE)

`x`	a `structList` or `admixList` object.
`method`	the method used to calculate the best K either 'evanno' or 'structure', not required for `admixList` objects.
`plot`	whether of not to generate diagnostic plots

If the K values are not ordered or there an even numbers of runs per K the 'structure' method will be implemented and the 'evanno' method to compute delta K will not be returned in the output.

a data.frame containing with columns containing the L_k, AIC, BIC, DIC and deltaK for structList. If an admixList was given a data.frame returning the log information will be supplied. If plot = TRUE a ggplot object is printed for the method of interest.

multi_K <- exampleStructure("multiple_runs")
# Run the evanno method and display diagnostic plots.
evanno_results <- bestK(multi_K, method = "evanno")
# Run the default structure method and display diagnostic plots
structure_results <- bestK(multi_K, "structure")
# find 'best' K according to results
deltaK <- evanno_results$variable == 'delta K'
max_deltaK <- which(evanno_results$value == max(evanno_results$value[deltaK], na.rm = TRUE))
evanno_results[max_deltaK, ]
lK <- structure_results$variable == 'L(K)'
max_Lk <- which(structure_results$value == max(structure_results$value[lK], na.rm = TRUE))
structure_results[max_Lk,]
# admixture example
multi_K_admix <- exampleAdmixture()
bestK(multi_K_admix)