R/HS.solution.R

Defines functions HS.solution

Documented in HS.solution

HS.solution <- function(t, parent.0, k1, k2, tb)
{
	parent = ifelse(t <= tb, 
		parent.0 * exp(-k1 * t),
		parent.0 * exp(-k1 * tb) * exp(-k2 * (t - tb)))
}

Try the mkin package in your browser

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

mkin documentation built on Sept. 21, 2018, 6:21 p.m.