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