# NOT RUN {
# }
# NOT RUN {
#create 3 Simulations with sites of different sizes:
small.sites<-parametersExample
small.sites$site.area=500
medium.sites<-parametersExample
medium.sites$site.area=1000
large.sites<-parametersExample
large.sites$site.area=2000
#run the 3 simulations
small.survey<-surveySim(small.sites)
medium.survey<-surveySim(medium.sites)
large.survey<-surveySim(large.sites)
#create the comparative plot.
#note that the results go into a list. If labels are not given, legend is built on list names
plotSurveySumm(
list(small.survey,medium.survey,large.survey),
plot="sites.found",
labels=c("Small sites","Medium sites","Large sites"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab