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...
