# NOT RUN {
## Defaults
exampleland <- landscape.new.empty()
exampleland <- landscape.new.switchparam(exampleland)
exampleland$switchparam
## Random epochs, random demographies, and no multiple paternity
exampleland <- landscape.new.empty()
exampleland <- landscape.new.switchparam(exampleland,re=1,rd=1,mp=0)
exampleland$switchparam
rm(exampleland)
# }
Run the code above in your browser using DataLab