str(Indian)
attach(Indian)
par(mfrow=c(1,2))
plot(highsch,income,xlab="Percent High School Graduates", ylab="Per capita income")
plot(highsch,poverty,xlab="Percent High School Graduates", ylab="Poverty rate")
par(mfrow=c(1,1))
cor(cbind(highsch,income,poverty))
detach(Indian)
Run the code above in your browser using DataLab