data(rland)
#After removing 30 (50%) of the patches of a landscape:
rland2 <- removepoints(rl=rland, nr=35)
#A reclassification might be needed to identify components:
rland2 <- cluster.id(rl=rland2)
#After removing 35 patches, there's a different number of components:
components.graph(rl=rland)
#21
components.graph(rl=rland2)
#16
Run the code above in your browser using DataLab