# \donttest{
library(spacetime)
library(sp)
library(spdep)
set.seed(123)
sd = sim_data_fe(dataset=regsamp,N=100,TT=8,
spatial = 80,Tau = -0.2,Rho = 0.4,
Beta = 2,sdDev = 2,startingT = 10,
LONGLAT = TRUE)
stplot(sd[[1]][,,'Y'])
dev.new()
plot(sel_regioni)
points(coordinates(sd[[1]]@sp))
plot(mat2listw(sd[[2]]),coordinates(sd[[1]]@sp),add=TRUE,col=2)
# }
Run the code above in your browser using DataLab