{}
# Draw 1000 vectors from vM-F with parameter 1, (1,0)
z <- rvMF(1000,c(1,0))
# Compute the density at these points
dvMF(z,c(1,0))
# Density of (0,1,0,0) with the parameter 3, (0,1,0,0)
dvMF(c(0,1,0,0),c(0,3,0,0))
Run the code above in your browser using DataLab