powered by
dtriangular(x, rho) rtriangular(n, rho, control.circular=list())
circular
dtriangular
rtriangular
data1 <- rtriangular(100, 0.3, control.circular=list(units="degrees")) plot(data1) ff <- function(x) dtriangular(x, rho=0.3) curve.circular(ff, shrink=1.2, join=TRUE)
Run the code above in your browser using DataLab