## Not run:
# curve(dslash, col = "blue", ylab = "f(x)", -5, 5, ylim = c(0, 0.4), las = 1,
# main = "Standard slash, normal and Cauchy densities", lwd = 2)
# curve(dnorm, col = "black", lty = 2, lwd = 2, add = TRUE)
# curve(dcauchy, col = "orange", lty = 3, lwd = 2, add = TRUE)
# legend("topleft", c("slash", "normal", "Cauchy"), lty = 1:3,
# col = c("blue","black","orange"), lwd = 2)
#
# curve(pslash, col = "blue", -5, 5, ylim = 0:1)
# pslash(c(-Inf, -20000, 20000, Inf)) # Gives a warning
# ## End(Not run)
Run the code above in your browser using DataLab