x = seq(0, 1, len=(N <- 101))
alpha = 0.7
ox = expand.grid(x, x)
z = damh(ox[,1], ox[,2], alpha=alpha)
contour(x, x, matrix(z, N, N), col="blue")
z = pamh(ox[,1], ox[,2], alpha=alpha)
contour(x, x, matrix(z, 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