# NOT RUN {
data(rland)
#Checking the number of patches in the starting landscape:
rland$number.patches
#60
#Removing 10 patches from the landscape:
rl1 <- removepoints(rl=rland, nr=10)
#Checking the number of patches in the output landscape:
rl1$number.patches
#50
# }
Run the code above in your browser using DataLab