dat<-read.csv("DataSegmented.csv")