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