



  x<-1:10
 y<-2+2*x

 plot(x,y)

 plot(x,y,type='l')
