##Dinosaur data from Campione and Evans (2012) for quadrupedal dinosaurs
data(dinos)
##Combined equation based on the raw regression
dinos.raw<-MASSTIMATE(dinos[,2], dinos[,3], equation = "quad.raw", data = dinos)
##Combined equation based on the phylogenetically corrected regression, data not specified
dinos.phylocor<-MASSTIMATE(dinos$HC, dinos$FC, equation = "quad.phylocor")Run the code above in your browser using DataLab