Best regards,
Aditya
##
###################################################
### Code for Section 6.1.2
###################################################
# You neeed a folder called "London Suicides" inside your working directory (my.dir)
# with the data downloaded from
library(maptools)
library(spdep)
load("dataset/London Suicides/LondonSuicides.RData")
london.gen <- readShapePoly("dataset/London Suicides/LDNSuicides.shp")
temp <- poly2nb(london.gen)
nb2INLA("LDN1.graph", temp)
LDN.adj <- paste(getwd(),"/LDN.graph",sep="")