# NOT RUN {
library(circular)
x = as.vector(rvonmises(20, circular(pi), 10))
circtrans(x) # area-proportional transformation
circtrans(x, area.prop = FALSE) # height-proportional transformation
circtrans(x, factor = 2) # with a scaling factor
# }
Run the code above in your browser using DataLab