head.hyper2.Rd
First few terms in a hyperdirichlet distribution
# S3 method for class 'hyper2'
head(x, ...)
Object of class hyper2
Further arguments, passed to head()
Function is x[head(brackets(x), ...)]
Returns a hyper2
object
p <- zipf(5)
names(p) <- letters[1:5]
H <- rank_likelihood(rrank(20,p))
head(H)
#> Warning: powers have nonzero sum
#> log(a^18 * (a + b)^-2 * (a + b + c)^-1 * (a + b + c + d)^-2 * (a + b +
#> c + d + e)^-20 * (a + b + c + e)^-2)