## Not run:
# #Load the data
# data("IslandBirds")
# data("Daily_Cov")
# data("siteCov")
# data("Birdstack")
# BirdOccupancy <-batchoccu(pres = IslandBirds, sitecov = siteCov, obscov =
# Daily_Cov, spp = 5, form = ~ Day + Wind + Rime + Noise + Clouds ~
# Elev + AgroFo + SecVec + Wetland)
#
# Occupancy.stack <- occupancy.predict(batch = BirdOccupancy, new.data =
# Birdstack)
# ## End(Not run)
Run the code above in your browser using DataLab