diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-27 13:21:38 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-27 13:21:38 +0100 |
| commit | 06327bc9d4269e2c8652c9af8cb038fe097729f3 (patch) | |
| tree | a9bb644e0eb7bfeceb65283e0be7908ea6e6331f /R/mkinmod.R | |
| parent | b2b5c0f2294e19178e95c9adc5351a1b73218a34 (diff) | |
Comment out unused code
Diffstat (limited to 'R/mkinmod.R')
| -rw-r--r-- | R/mkinmod.R | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/R/mkinmod.R b/R/mkinmod.R index 2805ef54..26148f18 100644 --- a/R/mkinmod.R +++ b/R/mkinmod.R @@ -164,12 +164,12 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL, quiet = FALSE, verb # The problems were: Calculation of dissipation times did not work in this case
# and the coefficient matrix is not generated correctly by the code present
# in this file in this case
- f_free_bound <- paste("f", varname, "free", "bound", sep = "_")
- k_bound_free <- paste("k", varname, "bound", "free", sep = "_")
- parms <- c(parms, f_free_bound, k_bound_free)
- reversible_binding_term_1 <- paste("+", k_bound_free, "*", box_2)
- reversible_binding_term_2 <- paste("+", f_free_bound, "*", k_compound, "*", box_1, "-",
- k_bound_free, "*", box_2)
+ #f_free_bound <- paste("f", varname, "free", "bound", sep = "_")
+ #k_bound_free <- paste("k", varname, "bound", "free", sep = "_")
+ #parms <- c(parms, f_free_bound, k_bound_free)
+ #reversible_binding_term_1 <- paste("+", k_bound_free, "*", box_2)
+ #reversible_binding_term_2 <- paste("+", f_free_bound, "*", k_compound, "*", box_1, "-",
+ # k_bound_free, "*", box_2)
}
diffs[[box_1]] <- paste(diffs[[box_1]], reversible_binding_term_1)
diffs[[box_2]] <- paste(diffs[[box_2]], reversible_binding_term_2)
|