# NOT RUN {
# load dataset
data(exampleRAD)
# iteratively estimate parameters
exampleRAD <- IterateHWE(exampleRAD)
# export results
GetWeightedMeanGenotypes(exampleRAD)
# re-load to run pipeline assuming population structure
data(exampleRAD)
# run pipeline
exampleRAD <- IteratePopStruct(exampleRAD, nPcsInit = 3)
# export results
GetWeightedMeanGenotypes(exampleRAD)
# dataset for LD pipeline
data(Msi01genes)
# run HWE + LD pipeline
mydata1 <- IterateHWE_LD(Msi01genes)
# run pop. struct + LD pipeline
# (tolerance raised to make example run faster)
mydata2 <- IteratePopStructLD(Msi01genes, tol = 0.01)
# }
Run the code above in your browser using DataLab