if (FALSE) {
my.dat <- get_ausplots(bounding_box=c(140, 142, -20, -18), veg.PI=TRUE,
site_info=FALSE)
#Default settings, where cover of trees 5 m or higher is calculated:
tree.cover <- single_cover_value(my.dat$veg.PI)
tree.cover
#Tussock grasses of any height (minimum height set to zero):
grass.cover <- single_cover_value(my.dat$veg.PI,
my.growth_forms=c("Tussock grass"), min.height=0)
grass.cover
#Any green veg at least 2 m in height:
veg.height.eg <- single_cover_value(my.dat$veg.PI, by.growth_form=FALSE,
min.height=2)
veg.height.eg
#Any green veg up to 1 m high:
ground.cover <- single_cover_value(my.dat$veg.PI, by.growth_form=FALSE,
min.height=0, max.height=1)
ground.cover
}
Run the code above in your browser using DataLab