diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2016-11-17 18:14:32 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2016-11-17 18:23:31 +0100 |
| commit | f3f415520c89f9d8526bf6fadc862ebd44be220d (patch) | |
| tree | e80d26e3b4f56ebe872888bed8f01a21d49b7ff4 /R/SFORB.solution.R | |
| parent | f52fffd9eab13b7902bf767dd9cd7f0e7abf8069 (diff) | |
Remove trailing whitespace, clean headers
Also ignore test.R in the top level directory, as it is not meant to
be public
Diffstat (limited to 'R/SFORB.solution.R')
| -rw-r--r-- | R/SFORB.solution.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/SFORB.solution.R b/R/SFORB.solution.R index 45a4533a..4cb94def 100644 --- a/R/SFORB.solution.R +++ b/R/SFORB.solution.R @@ -2,8 +2,8 @@ SFORB.solution = function(t, parent.0, k_12, k_21, k_1output) { sqrt_exp = sqrt(1/4 * (k_12 + k_21 + k_1output)^2 + k_12 * k_21 - (k_12 + k_1output) * k_21)
b1 = 0.5 * (k_12 + k_21 + k_1output) + sqrt_exp
b2 = 0.5 * (k_12 + k_21 + k_1output) - sqrt_exp
-
- parent = parent.0 *
+
+ parent = parent.0 *
(((k_12 + k_21 - b1)/(b2 - b1)) * exp(-b1 * t) +
((k_12 + k_21 - b2)/(b1 - b2)) * exp(-b2 * t))
}
|