# NOT RUN {
##Quadrupedal dinosaurs
data(dinos)
AHR1985(dinos$HC, dinos$FC, equation = "quad", data = dinos)
##Bipedal dinosaurs
data(dinosbip)
AHR1985(HC=NULL, dinosbip$FC, equation = "bip", data = dinosbip)
# }
Run the code above in your browser using DataLab