# NOT RUN {
x <- c(5, 2, 4, 2, 3, 2, 2, 2, 1, 2) # example data
edf_plot(x) # the default
edf_plot(x, verticals = FALSE) # the 'mathematical' version
edf_plot(x, do.points = FALSE) # good for many sample points
edf_plot(x, log = "x") # logarithmic; cannot show flat part before first jump
edf_plot(list(x, x+2), col = c("black", "royalblue3")) # plots both empirical distributions
edf_plot(list(x, x[1:4]+2), log = "x", col = c("black", "royalblue3"))
# }
Run the code above in your browser using DataLab