# NOT RUN {
whv_hype (matrix(2, ncol=2), reference = 4, ideal = 1)
whv_hype (matrix(c(3,1), ncol=2), reference = 4, ideal = 1)
whv_hype (matrix(2, ncol=2), reference = 4, ideal = 1,
dist = list(type="exponential", mu=0.2))
whv_hype (matrix(c(3,1), ncol=2), reference = 4, ideal = 1,
dist = list(type="exponential", mu=0.2))
whv_hype (matrix(2, ncol=2), reference = 4, ideal = 1,
dist = list(type="point", mu=c(1,1)))
whv_hype (matrix(c(3,1), ncol=2), reference = 4, ideal = 1,
dist = list(type="point", mu=c(1,1)))
# }
Run the code above in your browser using DataLab