# NOT RUN {
dyules(1:20, 2.1)
ryules(20, 2.1)
round(1000 * dyules(1:8, 2))
table(ryules(1000, 2))
# }
# NOT RUN {
x <- 0:6
plot(x, dyules(x, shape = 2.2), type = "h", las = 1, col = "blue")
# }
Run the code above in your browser using DataCamp Workspace