# \donttest{
## US States Production data
data(Produc, package = "plm")
## Spatial weights row-normalized matrix of 48 US states
data(usaww, package = "splm")
isrownor(usaww)
form1 <- log(gsp) ~ log(pcap) + log(pc) + log(emp) + unemp
res1 <- blmpSDPD(formula = form1, data=Produc, W = usaww,
index = c("state","year"),
model = list("sar","sdm","sem","sdem"),
effect = "twoways")
res1
res2 <- blmpSDPD(formula = form1, data = Produc, W = usaww,
index = c("state","year"),
model = list("sar","sdm","sem","sdem"),
effect = "twoways", dynamic = TRUE)
res2# }
Run the code above in your browser using DataLab