# NOT RUN {
##Dinosaur data from Campione and Evans (2012) for quadrupedal dinosaurs
data(dinos)
##Combined equation based on the raw regression
QE(HC = dinos$HC, FC = dinos$FC, quadratic = TRUE, data = dinos, return_PI = TRUE)
##Combined equation based on the phylogenetically corrected regression, data not specified
QE(HC = dinos$HC, FC = dinos$FC, equation = "phylocor")
# }
Run the code above in your browser using DataLab