if (FALSE) {
if (requireNamespace('INLA')) {
#Get Data
data("SolitaryTinamou")
proj <- "+proj=longlat +ellps=WGS84"
data <- SolitaryTinamou$datasets
mesh <- SolitaryTinamou$mesh
mesh$crs <- proj
#Set model up
organizedData <- intModel(data, Mesh = mesh, Coordinates = c('X', 'Y'),
Projection = proj, responsePA = 'Present')
##Run the model
modelRun <- fitISDM(organizedData,
options = list(control.inla = list(int.strategy = 'eb')))
#Print summary of model
modelRun
}
}
Run the code above in your browser using DataLab