diff options
Diffstat (limited to 'R/HS.solution.R')
| -rw-r--r-- | R/HS.solution.R | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/R/HS.solution.R b/R/HS.solution.R deleted file mode 100644 index 4651a6a..0000000 --- a/R/HS.solution.R +++ /dev/null @@ -1,6 +0,0 @@ -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)))
-}
|