# NOT RUN {
library(spdep)
library(dplyr)
data("Produc", package="Ecdat")
data("usaww")
usalw <- mat2listw(usaww)
formula <- as.formula( log(gsp) ~ log(pcap) + log(pc) + log(emp) + unemp)
out1 <- strm(formula, id="state", data=Produc,
listw = usalw, time=2,wide=FALSE,
filter_options="year==1970 | year==1971")
out2 <- strm(formula, id="state", data=Produc,
listw= usalw, time=2, wide = FALSE,
filter_options="year==1970 | year==1971",
method="Chebyshev")
# }
Run the code above in your browser using DataLab