# \donttest{
test = FALSE
if(test){
if(require(mvMORPH)){
set.seed(123)
n <- 32 # number of species
p <- 40 # number of traits
tree <- pbtree(n=n) # phylogenetic tree
R <- Posdef(p) # a random symmetric matrix (covariance)
# simulate a dataset
Y <- mvSIM(tree, model="BM1", nsim=1, param=list(sigma=R))
test <- fit_t_pl(Y, tree, model="BM", method="RidgeAlt")
GIC(test)
}
}
# }
Run the code above in your browser using DataLab