# NOT RUN {
#Loop the impact of increasing distances between survey rows
width.loop<-surveyLoops(parametersExample,"col.width",c(50,75,100,125,150),"sitesFound")
#Loop the impact of different artifact distributions on surveys
distr.loop<-surveyLoops(
parametersExample,
"obj.distribution",
c("uniform","linear","spherical","sinusoidal"),
"sitesFoundOnArtifacts")
# }
Run the code above in your browser using DataLab