# NOT RUN {
#################################################
######## CROSS SECTION DATA (G>1; Tm=1) # #######
#################################################
#### Example 1: Spatial Phillips-Curve. Anselin (1988, p. 203)
rm(list = ls()) # Clean memory
data("spc")
Tformula <- WAGE83 | WAGE81 ~ UN83 + NMR83 + SMSA | UN80 + NMR80 + SMSA
LMs <- lmtestspsur(Form = Tformula, data = spc, W = Wspc)
# }
# NOT RUN {
## Not run:
#################################################
######## PANEL DATA (G>1; Tm>1) ########
#################################################
#### Example 2: Homicides & Socio-Economics (1960-90)
# Homicides and selected socio-economic characteristics for
# continental U.S. counties.
# Data for four decennial census years: 1960, 1970, 1980 and 1990.
# https://geodacenter.github.io/data-and-lab/ncovr/
data("NCOVR")
# With different number of exogenous variables in each equation
Tformula <- HR70 | HR80 | HR90 ~ PS70 + UE70 | PS80 + UE80 +RD80 |
PS90 + UE90 + RD90 + PO90
LMs <- lmtestspsur(Form = Tformula, data = NCOVR, W = W)
# }
Run the code above in your browser using DataLab