# NOT RUN {
exampleland <- landscape.new.example()
exampleland <- landscape.simulate(exampleland, 4)
print("Allele frequencies at locus 1")
table(landscape.locus(exampleland,1)[,c(-1:-(landscape.democol()))])
rm(exampleland)
# }
Run the code above in your browser using DataLab