## Not run:
# data("IslandBirds")
# data("Daily_Cov")
# data("siteCov")
#
# #Model the abundance for 5 bird species and calculate alpha diversity from that
#
# BirdDiversity <-diversityoccu(pres = IslandBirds, sitecov = siteCov,
# obscov = Daily_Cov,spp = 5, form = ~ Day + Wind + Time + Rain +
# Noise ~ Elev + AgroFo + SecVec + Wetland + Upland)
#
# #plot the response of abundance to individual variables for species 4, 11
#
# responseplot.abund(batch = BirdDiversity, spp = 4, variable = Elev)
#
# responseplot.abund(batch = BirdDiversity, spp = 11, variable = Elev)
# ## End(Not run)
Run the code above in your browser using DataLab