aboutsummaryrefslogblamecommitdiff
path: root/R/HS.solution.R
blob: 4651a6a87c7fa72c3083a2aa3fb9fec6e1304fcd (plain) (tree)
1
2
3
4
5
6




                                                                
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)))
}

Contact - Imprint