Last chance! 50% off unlimited learning
Sale ends in
dfgm(x1, x2, alpha, log=FALSE)
pfgm(q1, q2, alpha)
rfgm(n, alpha)
TRUE
then the logarithm is returned.dfgm
gives the density,
pfgm
gives the distribution function, and
rfgm
generates random deviates (a two-column matrix).fgm
, the fgm
.N = 101
x = seq(0.0, 1.0, len=N)
alpha = 0.7
ox = expand.grid(x, x)
z = dfgm(ox[,1], ox[,2], alpha=alpha)
contour(x, x, matrix(z, N, N), col="blue")
z = pfgm(ox[,1], ox[,2], alpha=alpha)
contour(x, x, matrix(z, N, N), col="blue")
plot(r <- rfgm(n=3000, 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