From 137806a030cd19496cf3e0792173aeb81756b1cd Mon Sep 17 00:00:00 2001 From: "Matthew L. Fidler" Date: Sun, 14 Jan 2024 16:41:21 -0600 Subject: [PATCH] use getTime__ instead of gitTime() --- src/comp.c | 2 +- tests/testthat/test-nmtest.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/comp.c b/src/comp.c index e01b567a..adb3e3a8 100644 --- a/src/comp.c +++ b/src/comp.c @@ -817,7 +817,7 @@ SEXP _rxode2parse_compC(SEXP in, SEXP mv) { 0.0, 0.0, 1.0, 0.0, 0.0); } Cc[i]= Cc[i]*sm; - time[i] = getTime(ind->ix[i], ind); + time[i] = getTime__(ind->ix[i], ind, 0); } SEXP dfNames = PROTECT(Rf_allocVector(STRSXP, 19)); pro++; SEXP dfVals = PROTECT(Rf_allocVector(VECSXP, 19)); pro++; diff --git a/tests/testthat/test-nmtest.R b/tests/testthat/test-nmtest.R index 466ceb92..975e8271 100644 --- a/tests/testthat/test-nmtest.R +++ b/tests/testthat/test-nmtest.R @@ -21,7 +21,7 @@ solveEqual <- function(id) { geom_line(data=d, aes(time, cp), col="blue", lty=2, linewidth=1.2)) } -## solveEqual(1) +solveEqual(1) solveEqual(2)