R/TFCcalc.r

Defines functions .TFCcalc

  .TFCcalc <-  function(FUELTYPE,CFL,CFB,SFC,PC,PDF,option="TFC"){
     CFC  <- CFL * CFB                                                                                                                 # /* 66  66a - 2009 */
     CFC  <- ifelse(FUELTYPE %in% c("M1","M2"),PC/100*CFC,CFC)                                                                         # /* 66b - 2009 */
     CFC  <- ifelse(FUELTYPE %in% c("M3","M4"),PDF/100*CFC,CFC)                                                                        # /* 66c - 2009 */
     TFC  <- SFC + CFC                                                                                                                 # /* 67 */
     if (option=="TFC"){TFC} else
     if (option=="CFC"){CFC}}

Try the fwi.fbp package in your browser

Any scripts or data that you put into this service are public.

fwi.fbp documentation built on May 2, 2019, 4:48 p.m.