pal                    package:sp                    R Documentation

_N_o_r_t_h _C_a_r_o_l_i_n_a _c_o_u_n_t_y _b_o_u_n_d_a_r_i_e_s (_e_0_0)

_D_e_s_c_r_i_p_t_i_o_n:

     North Carolina county boundaries in e00 (ArcInfo) format for
     counties from the 1990 census.

_U_s_a_g_e:

     data(co37_d90_arc)
     data(co37_d90_pal)
     data(co37_d90_pat)

_F_o_r_m_a_t:

     The format is as read by functions in the RArcInfo package

_S_o_u_r_c_e:

     <URL:
     http://www.census.gov/geo/cob/bdy/co/co90e00/co37_d90_e00.zip>

_E_x_a_m_p_l_e_s:

     ## 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))

