[R] create waveform sawtooth

[mail me]

Hi:

I am trying to create a sawtooth waveform. I used the following

x <- runif(500, min = -2, max = 2)
y <- (1 -abs(x3))* ((x3) <= 1)
combined <- data.frame(x = x3, y = y3)
plot(combined)

and I get a triangular waveform, not sawtooth. Can someone give a
solution to create a sawtooth waveform?

Thanks
deb