t = seq( 0, +3, length.out=200 ) # Create our function: # my_f = function(t){ if( t <= 1 ){ y = t }else if( t <= 2 ){ y = 3 - t }else{ y = 1 } y } y = sapply( t, my_f ) #postscript("../../WriteUp/Graphics/Chapter6/chap_6_sect_1_prob_4_plot.eps", onefile=FALSE, horizontal=FALSE) plot( t, y, type='p', cex=0.7, pch=20, col='black' ) grid() #dev.off()