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