soco <- readShapePoly("tl_2014_us_county.shp")
summary(soco)
soco.df <- data.frame(soco)

# Change row name from default to FIPS. I am trying to delete states based on FIPS.
row.names(soco)<-as.character(soco$GEOID)
row.names(soco)

# NAME has a unique 2 number state identifier.
# I am trying to delete the states I do not need based on this number.
ne<-soco[soco$NAME-(31,26 etc), ]