x <- sort(round(c(-1, -0.5, 0, 0.5, 1, 5*rnorm(5)), 2))
h <- Heaviside(x)
s <- Sign(x)
d <- Delta(x)
Pi <- Boxcar(x)
r <- Ramp(x)
cbind(x = x, Step = h, Signum = s, Delta = d, Pi = Pi, R = r)
Run the code above in your browser using DataLab