#
# Getting the data
#

data(minority)

#
#  Reduce the minority data to percents and log the total populations
#

minorityPercent <- cbind(100*minority[,c(1:10,12:14)]/minority[,"Total.population"],log(minority[,c(11,13)],10))

names(minorityPercent) <- c("% Arabic",  "% Black", "% Chinese",  "% Filipino", "% Japanese",
                            "% Korean",  "% Latino", "% Multiple",
                            "% S. Asian",  "% SE Asian",  "% Other",
                            "% Minority", "% W Asian",
                            "Log_10 Total pop", "Log_10 Minority pop")