rstiefel (version 1.0.1)

ry_bing: Helper Function for Sampling a Bingham-distributed Vector

Description

C interface to perform a Gibbs update of y with invariant distribution proportional to exp( sum(l*y^2) with respect to the uniform measure on the sphere.

Usage

ry_bing(y, l)

Arguments

y

a normal vector.

l

a vector.

Value

a normal vector.

References

Hoff(2009)

Examples

# NOT RUN {
## The function is currently defined as
function (y, l) 
{
    .C("ry_bing", y = as.double(y), l = as.double(l), n = as.integer(length(y)))$y
  }

# }