# NOT RUN {
## Load test data
data(Anolis_traits)
data(Anolis_tree)
my.hp <- hpfun(hpf="Uniform", hp.pars=c(1,2))
plot_hp(my.hp)
my.jive <- make_jive(Anolis_tree, Anolis_traits[,-3], model.priors = list(mean="BM", logvar="OU"))
plot_hp(my.jive, cex.main = .8)
# }
Run the code above in your browser using DataLab