Mean and variance for a circular sample
mean_c(theta)var_c(theta)
The mean (rsp. variance) of the angle sample
A vector of angles (in radians)
th <- 2*base::pi*(rbeta(2000, 1.5, 1.5) - 0.5)
c(mn = mean_c(th), va = var_c(th))
rm(th)
Run the code above in your browser using DataLab