## indexExercise.R myData <- read.csv('indexExercise.csv') m = myData[,2:8] cm = colMeans(m) csd <- apply(m,2,sd) both <- cbind(csd, cm) plot(both)