R/Fam_tier1.R

Fam_tier1 <- function(nmms, FracFEED, FracFUEL, FracCNST){
	  Fam <- nmms * ( 1 - (FracFEED + FracFUEL + FracCNST) )
	  return(Fam)
}

Try the emissions package in your browser

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

emissions documentation built on May 2, 2019, 6:09 p.m.