This is part of the code that was used in creating the data used for the application
state <- data.frame(state.x77)
state <- data.frame(cbind(rownames(state),state[,c(-5,-7)]))
colnames(state)[c(1,5,6)]<-c("State","Life_Expectancy","HS_Grad")
str(state)
## 'data.frame': 50 obs. of 7 variables:
## $ State : Factor w/ 50 levels "Alabama","Alaska",..: 1 2 3 4 5 6 7 8 9 10 ...
## $ Population : num 3615 365 2212 2110 21198 ...
## $ Income : num 3624 6315 4530 3378 5114 ...
## $ Illiteracy : num 2.1 1.5 1.8 1.9 1.1 0.7 1.1 0.9 1.3 2 ...
## $ Life_Expectancy: num 69 69.3 70.5 70.7 71.7 ...
## $ HS_Grad : num 41.3 66.7 58.1 39.9 62.6 63.9 56 54.6 52.6 40.6 ...
## $ Area : num 50708 566432 113417 51945 156361 ...