Summary

Created in R using the following program

x <- c(2, 3.1, 4.5)

y <- c(0, 0, 1)

y1 <- c(.786, 0.005, 0.005)

png(filename="friedmans_mars_hinge_functions.png",pointsize=16,width=280, height=220)

par(mar = c(3, 3, .5, 0.5))

par(mgp = c(1.6, 0.6, 0)) # flatten axis elements

plot(x,y, type="l", col="red")

lines(x, y1, lty=2, col="red")

text(2.76, .7, "max(0,3.1-x)")

text(4.0, .22, "max(0,x-3.1)")

dev.off()

Licensing

I, the copyright holder of this work, release this work into the public domain. This applies worldwide. In some countries this may not be legally possible; if so: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.