# NOT RUN {
data <- plantillness
v <- which(data$NRang <= 10)
data <- data[v,]
v <- which(data$NCep <= 10)
data<-data[v,]
result <- estima(data = data)
# }
# NOT RUN {
#Example in "lin" norm, with a fixed neighborhood :
result <- estima(data = plantillness, norm = "lin",swpresent = FALSE,vxpresent = 3, vypresent = 4)
#Example with a spatial covariate (adapted to the dimension of the dataset) :
cov <- covplant[,1]
for (i in (1:(dim(plantillness)[2] - 4))){
cov <- cbind(cov,covplant[,1])
}
result <- estima(data = plantillness,covariate1 = cov)
#Example with the past neighborhood as covariate:
result <- estima(data = plantillness,pastcov = TRUE)
#Exemple with a custom neighborhood matrix
custompres <- build(data = plantillness)
custompast <- build(data = plantillness, vx = 5,vy = 6)
result <- estima(data = plantillness,pastcov = TRUE,buildpres = custompres,buildpast = custompast)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab