# NOT RUN {
# generate a 5x5 diffusivity matrix
D = get_random_diffusivity_matrix(Ntraits=5)
# check that it is indeed positive definite
if(all(eigen(D)$values>0)){
cat("Indeed positive definite\n");
}else{
cat("Not positive definite\n");
}
# }
Run the code above in your browser using DataLab