F<-c(0,0,1,1);
x<-c(-0.5,0,2,2.5);
plot(x,F,ylab="F(x)",xlab="x",type="l",
	xlim=c(-0.5,2.5),ylim=c(-0.1,1.1))