# NOT RUN {
# 600 observations from two von Mises distributions
library(circular)
x = c(rvonmises(200, circular(pi/4), 5), rvonmises(400, circular(pi), 20))
chist(x) # area-proportional circular histgram
chist(x, area = FALSE) # height-proportional circular histgram
chist(x, radius=0) # area-proportional rose diagram
chist(x, radius=0, area=FALSE) # height-proportional rose diagram
chist(x, prob=FALSE) # labels for frequency
chist(x, nlabels=0) # no label
chist(x, xlim=c(-1.7,1)) # use xlim
chist(x, area=FALSE, total=2) # with scaling
chist(x, area=FALSE, total=NULL) # without scaling
# }
Run the code above in your browser using DataLab