F<-c(0,0.5,0.5,0);
x<-c(-0.00001,0,2,2.000001);
plot(x,F,ylab="F(x)",xlab="x",type="l",
     main="The density function of a uniformly
distributed random variable on [0,2]");