# NOT RUN {
dvm = function(x, mu=0, kappa=1) # von Mises density
exp(kappa * cos(x - mu)) * (2 * pi * besselI(kappa, 0))^(-1)
x = dvm(seq(0, 2 * pi, len = 100), pi, 10)
scalefactor(x) # area-proportional transformation
scalefactor(x, area.prop = FALSE) # height-proportional transformation
scalefactor(x, total.area = 2) # total area of 2
scalefactor(x, area.prop = FALSE, total.area = 2)
# }
Run the code above in your browser using DataLab