Session 1

 

The code to find the range of highest & lowest of combined column:

> z<- read.csv(file.choose(),header=T)
> zcol1<-z[,3]
> zcol2<-z[,4]
> mergeddata<-c(zcol1,zcol2)
> range(mergeddata)
[1] 4888.20 6020.75
> save.image("E:\\R\\session1")