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