R/AHR1985.R

In MASSTIMATE: Body Mass Estimation Equations for Vertebrates

Defines functions AHR1985

Documented in AHR1985

AHR1985 <-
function(HC=NULL,FC,equation=c("bip","quad"),data=NULL) {
  if(equation=="quad") {
    AHR1985<-round(0.078*(HC+FC)^2.73,2)
  }
  if(equation=="bip") {
    AHR1985<-round(0.16*(FC)^2.73,2)
  }
  return(cbind(data,AHR1985))
}

Try the MASSTIMATE package in your browser