ifname<- "DataLondonOlympicDecathlon.csv"
alldata <- read.delim(ifname, row.names=1, header=T, sep=",", as.is=TRUE, strip.white=FALSE)
DataMatrix<-alldata[,-c(1,2)]
correlD<-cor(DataMatrix); correlD
plot(DataMatrix$X100,DataMatrix$LongJumptM,main="Correlation between X100 and LongJump")