set.seed(1)
x <- rwcauchy(5, mean = 90, rho = exp(-1))
dwcauchy(x, mean = 90, rho = exp(-1))
dwcauchy(x, mean = 90, rho = exp(-1), axial = TRUE)
pwcauchy(x, mean = 90, rho = exp(-1))
qwcauchy(c(.25, .5, .75), mean = 90, rho = exp(-1))
Run the code above in your browser using DataLab