# NOT RUN {
## Load the data files for MSA names and MSA FIPS codes
data(MSAnames)
data(MSAfips)
## Save the FIPS code for Abilene, TX MSA
ab.fips<-MSAfips$msa.cmsa.fips[1]
###Use the MSA FIPS code
Abilene<-MSA(msafips=ab.fips,level="tract")
###USe the MSA full name
Abilene<-MSA(msaname="Abilene, TX MSA",level="tract")
##Use the msaname alternative
portland<-MSA(msaname="Portland",state="OR",level="tract")
##Plot Portland
plot(portland)
title("Portland MSA, OR 2000")
# }
Run the code above in your browser using DataLab