y<-c(15,25,60,80)