damh(x1, x2, alpha, log = FALSE)
pamh(q1, q2, alpha)
ramh(n, alpha)
runif
TRUE
then the logarithm is returned.damh
gives the density,
pamh
gives the distribution function, and
ramh
generates random deviates (a two-column matrix).amh
, the amh
.x <- seq(0, 1, len = (N <- 101)); alpha <- 0.7
ox <- expand.grid(x, x)
zedd <- damh(ox[, 1], ox[, 2], alpha = alpha)
contour(x, x, matrix(zedd, N, N), col = "blue")
zedd <- pamh(ox[, 1], ox[, 2], alpha = alpha)
contour(x, x, matrix(zedd, N, N), col = "blue")
plot(r <- ramh(n = 1000, alpha = alpha), col = "blue")
par(mfrow = c(1, 2))
hist(r[, 1]) # Should be uniform
hist(r[, 2]) # Should be uniform
Run the code above in your browser using DataLab