R/t2Grey.R

t2Grey<-function(B0,relax=TRUE){
  if(relax){return(1.74*B0+7.77)}else{
    return(1/(1.74*B0+7.77)*1000)
  }
}
tierneytim/FIACH documentation built on May 31, 2019, 1:45 p.m.