\HeaderA{pal}{North Carolina county boundaries (e00)}{pal}
\aliasA{arc}{pal}{arc}
\aliasA{pat}{pal}{pat}
\keyword{datasets}{pal}
\begin{Description}\relax
North Carolina county boundaries in e00 (ArcInfo) format for counties from the 1990 census.
\end{Description}
\begin{Usage}
\begin{verbatim}
data(co37_d90_arc)
data(co37_d90_pal)
data(co37_d90_pat)
\end{verbatim}
\end{Usage}
\begin{Format}\relax
The format is as read by functions in the RArcInfo package
\end{Format}
\begin{Source}\relax
\url{http://www.census.gov/geo/cob/bdy/co/co90e00/co37_d90_e00.zip}
\end{Source}
\begin{Examples}
\begin{ExampleCode}
## Not run: 
library(RArcInfo)
fl <- "http://www.census.gov/geo/cob/bdy/co/co90e00/co37_d90_e00.zip"
download.file(fl, "co37_d90_e00.zip")
e00 <- zip.file.extract("co37_d90.e00", "co37_d90_e00.zip")
e00toavc(e00, "nc")
arc <- get.arcdata(".", "nc")
pal <- get.paldata(".", "nc")
sapply(pal[[2]], function(x) length(x[[1]]))
pat <- get.tabledata("info", "NC.PAT")
## End(Not run)
data(co37_d90_arc)
data(co37_d90_pal)
data(co37_d90_pat)
IDs <- paste(pat$ST[-1], pat$CO[-1], sep="")
nc3 <- as.SpatialPolygons.pal(arc, pal, IDs=IDs)
plotSpatialPolygons(nc3)
invisible(text(getSpPPolygonsLabptSlots(nc3), labels=getSpPPolygonsIDSlots(nc3), cex=0.6))
\end{ExampleCode}
\end{Examples}

