## Not run:
# # Now, simulate a Discrete Pareto distribution over 100
# # observations with lognormal mean -1 and lognormal standard deviation 1.
#
# set.seed(1)
# s4 <- simdp(n=100, v=3.5)
# table(s4)
# ## End(Not run)
Run the code above in your browser using DataLab