crimesub <- stpm(valenciacrimes$df[101:200, ],
names = colnames(valenciacrimes$df)[-c(1:3)],
L = valencianet)
mod1 <- sepstlppm(crimesub, spaceformula = ~x ,
timeformula = ~ day)
plot(mod1)
Run the code above in your browser using DataLab