R/houstonhom.R

In spatialanalysis/geodaData: Spatial Analysis Datasets for Teaching

#' Houston Homicides 1980s-90s
#'
#' Homicides and selected socio-economic characteristics for counties surrounding Houston, TX. Data aggregated for three time periods: 1979-84 (steady decline in homicides), 1984-88 (stable period), and 1988-93 (steady increase in homicides).
#'
#' Sf object, unprojected. EPSG 4326: WGS84.
#'
#' @format An sf data frame with 52 rows, 23 variables, and a geometry column:
#' \describe{
#'	\item{	NAME	}{	County name	}
#'	\item{	STATE_NAME	}{	State name	}
#'	\item{	STATE_FIPS	}{	State FIPS code (character)	}
#'	\item{	CNTY_FIPS	}{	County FIPS code (character)	}
#'	\item{	FIPS	}{	Combined state and county FIPS code (character)	}
#'	\item{	STFIPS	}{	State FIPS code (number)	}
#'	\item{	COFIPS	}{	County FIPS code (number)	}
#'	\item{	FIPSNO	}{	Combined state and county FIPS code (number)	}
#'	\item{	HR8187	}{	Homicide rate per 100,000 (1981-87)	}
#'	\item{	HR8791	}{	Homicide rate per 100,000 (1987-91)	}
#'	\item{	HR9195	}{	Homicide rate per 100,000 (1991-95)	}
#'	\item{	HC8187	}{	Homicide count (1981-87)	}
#'	\item{	HC8791	}{	Homicide count (1987-91)	}
#'	\item{	HC9195	}{	Homicide count (1991-95)	}
#'	\item{	PO8187	}{	Population total (1981-87)	}
#'	\item{	PO8791	}{	Population total (1987-91)	}
#'	\item{	PO9195	}{	Population total (1991-95)	}
#'	\item{	PE77	}{	Police expenditures per capita, 1977	}
#'	\item{	PE82	}{	Police expenditures per capita, 1982	}
#'	\item{	PE87	}{	Police expenditures per capita, 1987	}
#'	\item{	RDAC80	}{	Resource deprivation/affluence composite variable, 1980	}
#'	\item{	RDAC85	}{	Resource deprivation/affluence composite variable, 1985	}
#'	\item{	RDAC90	}{	Resource deprivation/affluence composite variable, 1990	}
#'	}
#' @source S. Messner, L. Anselin, D. Hawkins, G. Deane, S. Tolnay, R. Baller (2000). An Atlas of the Spatial Patterning of County-Level Homicide, 1960-1990. Pittsburgh, PA, \url{www.ncovr.heinz.cmu.edu}
#'
#' @examples
#' if (requireNamespace("sf", quietly = TRUE)) {
#'   library(sf)
#'   data(houstonhom)
#'
#'   plot(houstonhom["HR9195"])
#' }
"houstonhom"