From 6fb6f1ad12298a5b5c637fdb426155d524b3d165 Mon Sep 17 00:00:00 2001 From: Yi Zhang Date: Thu, 14 Nov 2024 14:57:03 -0800 Subject: [PATCH] update subtree --- ...terpolation.hpp => pmx_ln_interpolate.hpp} | 30 +- ...n_test.cpp => pmx_ln_interpolate_test.cpp} | 84 +- .../stan_math/stan/math/torsten/torsten.hpp | 2 +- .../math/matrix/linear_interpolation.stan | 40 - .../generalOdeModel_control.stan | 123 --- .../good/parser-generator/mixOdeModel.stan | 104 -- .../parser-generator/mixOdeModel_control.stan | 104 -- .../parser-generator/pmx_solve_group.stan | 141 --- .../good/parser-generator/pmx_solve_rk45.stan | 127 --- .../parser-generator/univariate_integral.stan | 24 - .../good/torsten/PKModelOneCpt.stan | 197 ---- .../good/torsten/PKModelTwoCpt.stan | 196 ---- .../good/torsten/generalCptModel.stan | 889 ------------------ .../good/torsten/generalOdeModel_good.stan | 794 ---------------- .../test-models/good/torsten/linOdeModel.stan | 194 ---- .../good/torsten/mixOde1CptModel.stan | 362 ------- .../good/torsten/mixOde2CptModel.stan | 363 ------- .../good/torsten/mixOdeModel_good.stan | 424 --------- .../good/torsten/pmx_solve_group.stan | 52 +- 19 files changed, 84 insertions(+), 4166 deletions(-) rename cmdstan/stan/lib/stan_math/stan/math/torsten/{linear_interpolation.hpp => pmx_ln_interpolate.hpp} (66%) rename cmdstan/stan/lib/stan_math/stan/math/torsten/test/unit/{linear_interpolation_test.cpp => pmx_ln_interpolate_test.cpp} (81%) delete mode 100644 cmdstan/stan/src/test/test-models/good/function-signatures/math/matrix/linear_interpolation.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/parser-generator/generalOdeModel_control.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/parser-generator/mixOdeModel.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/parser-generator/mixOdeModel_control.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/parser-generator/pmx_solve_group.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/parser-generator/pmx_solve_rk45.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/parser-generator/univariate_integral.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/torsten/PKModelOneCpt.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/torsten/PKModelTwoCpt.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/torsten/generalCptModel.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/torsten/generalOdeModel_good.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/torsten/linOdeModel.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/torsten/mixOde1CptModel.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/torsten/mixOde2CptModel.stan delete mode 100644 cmdstan/stan/src/test/test-models/good/torsten/mixOdeModel_good.stan diff --git a/cmdstan/stan/lib/stan_math/stan/math/torsten/linear_interpolation.hpp b/cmdstan/stan/lib/stan_math/stan/math/torsten/pmx_ln_interpolate.hpp similarity index 66% rename from cmdstan/stan/lib/stan_math/stan/math/torsten/linear_interpolation.hpp rename to cmdstan/stan/lib/stan_math/stan/math/torsten/pmx_ln_interpolate.hpp index a48d252584..7ad9144b6e 100644 --- a/cmdstan/stan/lib/stan_math/stan/math/torsten/linear_interpolation.hpp +++ b/cmdstan/stan/lib/stan_math/stan/math/torsten/pmx_ln_interpolate.hpp @@ -1,5 +1,5 @@ -#ifndef STAN_MATH_TORSTEN_LINEAR_INTERPOLATION_HPP -#define STAN_MATH_TORSTEN_LINEAR_INTERPOLATION_HPP +#ifndef STAN_MATH_TORSTEN_PMX_LN_INTERPOLATE_HPP +#define STAN_MATH_TORSTEN_PMX_LN_INTERPOLATE_HPP #include #include @@ -12,7 +12,7 @@ namespace torsten { /** - * Return the values of a piecewise linear function at specifed values of the + * Return the values of a piecewise linear function at specifed values of the * function argument. The function is specified in terms of a set of x y pairs. * * @tparam T0 Type of value to be interpolated @@ -26,16 +26,16 @@ namespace torsten { template typename stan::return_type_t - inline linear_interpolation(const T0& xout, + inline pmx_ln_interpolate(const T0& xout, const std::vector& x, const std::vector& y) { - stan::math::check_finite("linear_interpolation", "xout", xout); - stan::math::check_finite("linear_interpolation", "x", x); - stan::math::check_finite("linear_interpolation", "y", y); - stan::math::check_nonzero_size("linear_interpolation", "x", x); - stan::math::check_nonzero_size("linear_interpolation", "y", y); - stan::math::check_ordered("linear_interpolation", "x", x); - stan::math::check_matching_sizes("linear_interpolation", "x", x, "y", y); + stan::math::check_finite("pmx_ln_interpolate", "xout", xout); + stan::math::check_finite("pmx_ln_interpolate", "x", x); + stan::math::check_finite("pmx_ln_interpolate", "y", y); + stan::math::check_nonzero_size("pmx_ln_interpolate", "x", x); + stan::math::check_nonzero_size("pmx_ln_interpolate", "y", y); + stan::math::check_ordered("pmx_ln_interpolate", "x", x); + stan::math::check_matching_sizes("pmx_ln_interpolate", "x", x, "y", y); typename stan::return_type_t yout; if (xout < x.front()) { @@ -51,15 +51,15 @@ namespace torsten { template std::vector> - inline linear_interpolation(const std::vector& xout, + inline pmx_ln_interpolate(const std::vector& xout, const std::vector& x, const std::vector& y) { - stan::math::check_nonzero_size("linear_interpolation", "xout", xout); - stan::math::check_finite("linear_interpolation", "xout", xout); + stan::math::check_nonzero_size("pmx_ln_interpolate", "xout", xout); + stan::math::check_finite("pmx_ln_interpolate", "xout", xout); std::vector> yout(xout.size()); std::transform(xout.begin(), xout.end(), yout.begin(), - [&x, &y](const T0& xi) { return linear_interpolation(xi, x, y); }); + [&x, &y](const T0& xi) { return pmx_ln_interpolate(xi, x, y); }); return yout; } } diff --git a/cmdstan/stan/lib/stan_math/stan/math/torsten/test/unit/linear_interpolation_test.cpp b/cmdstan/stan/lib/stan_math/stan/math/torsten/test/unit/pmx_ln_interpolate_test.cpp similarity index 81% rename from cmdstan/stan/lib/stan_math/stan/math/torsten/test/unit/linear_interpolation_test.cpp rename to cmdstan/stan/lib/stan_math/stan/math/torsten/test/unit/pmx_ln_interpolate_test.cpp index 8493fcfaca..76463d9cc8 100644 --- a/cmdstan/stan/lib/stan_math/stan/math/torsten/test/unit/linear_interpolation_test.cpp +++ b/cmdstan/stan/lib/stan_math/stan/math/torsten/test/unit/pmx_ln_interpolate_test.cpp @@ -1,4 +1,4 @@ -#include +#include #include #include #include @@ -6,8 +6,8 @@ #include #include -TEST(linear_interpolation, xdbl){ - using torsten::linear_interpolation; +TEST(pmx_ln_interpolate, xdbl){ + using torsten::pmx_ln_interpolate; using stan::math::var; int nx = 5; std::vector x(nx), y(nx); @@ -19,12 +19,12 @@ TEST(linear_interpolation, xdbl){ } double xout = 3.4; - double yout = linear_interpolation(xout, x, y); + double yout = pmx_ln_interpolate(xout, x, y); EXPECT_FLOAT_EQ(yout, k * xout); } -TEST(linear_interpolation, in_range_gradient_x_y){ - using torsten::linear_interpolation; +TEST(pmx_ln_interpolate, in_range_gradient_x_y){ + using torsten::pmx_ln_interpolate; using stan::math::var; using stan::math::value_of; int nx = 5; @@ -38,7 +38,7 @@ TEST(linear_interpolation, in_range_gradient_x_y){ { // xout is double double xout = 0.4; - var yout = linear_interpolation(xout, x, y); + var yout = pmx_ln_interpolate(xout, x, y); int i = 0; var y0 = y.at(i) + (y.at(i+1) - y.at(i)) / (x.at(i+1) - x.at(i)) * (xout - x.at(i)); EXPECT_FLOAT_EQ(value_of(yout), k * xout); @@ -63,7 +63,7 @@ TEST(linear_interpolation, in_range_gradient_x_y){ { // xout is double double xout = 2.4; - var yout = linear_interpolation(xout, x, y); + var yout = pmx_ln_interpolate(xout, x, y); int i = 2; var y0 = y.at(i) + (y.at(i+1) - y.at(i)) / (x.at(i+1) - x.at(i)) * (xout - x.at(i)); EXPECT_FLOAT_EQ(value_of(yout), k * xout); @@ -88,7 +88,7 @@ TEST(linear_interpolation, in_range_gradient_x_y){ { // xout is var var xout = 1.4; - var yout = linear_interpolation(xout, x, y); + var yout = pmx_ln_interpolate(xout, x, y); int i = 1; var y0 = y.at(i) + (y.at(i+1) - y.at(i)) / (x.at(i+1) - x.at(i)) * (xout - x.at(i)); EXPECT_FLOAT_EQ(value_of(yout), value_of(k * xout)); @@ -121,8 +121,8 @@ TEST(linear_interpolation, in_range_gradient_x_y){ } } -TEST(linear_interpolation, out_range_gradient_x_y){ - using torsten::linear_interpolation; +TEST(pmx_ln_interpolate, out_range_gradient_x_y){ + using torsten::pmx_ln_interpolate; using stan::math::var; using stan::math::value_of; int nx = 5; @@ -136,7 +136,7 @@ TEST(linear_interpolation, out_range_gradient_x_y){ { // xout is double double xout = -1.2; - var yout = linear_interpolation(xout, x, y); + var yout = pmx_ln_interpolate(xout, x, y); int i = 0; var y0 = y.front(); EXPECT_FLOAT_EQ(value_of(yout), value_of(y.front())); @@ -161,7 +161,7 @@ TEST(linear_interpolation, out_range_gradient_x_y){ { // xout is double double xout = 7.5; - var yout = linear_interpolation(xout, x, y); + var yout = pmx_ln_interpolate(xout, x, y); int i = 2; var y0 = y.back(); EXPECT_FLOAT_EQ(value_of(yout), value_of(y.back())); @@ -185,7 +185,7 @@ TEST(linear_interpolation, out_range_gradient_x_y){ } } -TEST(linear_interpolation, linear_example) { +TEST(pmx_ln_interpolate, linear_example) { int nx = 5, nout = 3; std::vector x(nx), y(nx), xout(nout), yout; double youtTrue; @@ -199,7 +199,7 @@ TEST(linear_interpolation, linear_example) { xout[1] = 2.5; xout[2] = 4.5; - yout = torsten::linear_interpolation(xout, x, y); + yout = torsten::pmx_ln_interpolate(xout, x, y); for(int i = 0; i < nout; i++){ if(xout[i] <= x[0]){ youtTrue = x[0]; @@ -212,11 +212,11 @@ TEST(linear_interpolation, linear_example) { } } -TEST(linear_interpolation, xgradient){ +TEST(pmx_ln_interpolate, xgradient){ using stan::math::var; int nx = 5, nout = 3; std::vector xdbl(nx), ydbl(nx), xoutdbl(nout), thisGrad(nx); - Eigen::MatrixXd trueJac = Eigen::MatrixXd::Zero(3, 5); + Eigen::MatrixXd trueJac = Eigen::MatrixXd::Zero(3, 5); for(int i = 0; i < nx; i++){ xdbl[i] = i; @@ -242,7 +242,7 @@ TEST(linear_interpolation, xgradient){ for(int k = 0; k < nout; k++){ xout[k] = xoutdbl[k]; } - yout = torsten::linear_interpolation(xout, x, y); + yout = torsten::pmx_ln_interpolate(xout, x, y); yout[i].grad(x, thisGrad); @@ -252,11 +252,11 @@ TEST(linear_interpolation, xgradient){ } } -TEST(linear_interpolation, ygradient){ +TEST(pmx_ln_interpolate, ygradient){ using stan::math::var; int nx = 5, nout = 3; std::vector xdbl(nx), ydbl(nx), xoutdbl(nout), thisGrad(nx); - Eigen::MatrixXd trueJac = Eigen::MatrixXd::Zero(3, 5); + Eigen::MatrixXd trueJac = Eigen::MatrixXd::Zero(3, 5); for(int i = 0; i < nx; i++){ xdbl[i] = i; @@ -284,21 +284,21 @@ TEST(linear_interpolation, ygradient){ for(int k = 0; k < nout; k++){ xout[k] = xoutdbl[k]; } - yout = torsten::linear_interpolation(xout, x, y); + yout = torsten::pmx_ln_interpolate(xout, x, y); yout[i].grad(y, thisGrad); - + for(int j = 0; j < nx; j++){ EXPECT_EQ(trueJac(i, j), thisGrad[j]); } } } -TEST(linear_interpolation, xoutgradient){ +TEST(pmx_ln_interpolate, xoutgradient){ using stan::math::var; int nx = 5, nout = 3; std::vector xdbl(nx), ydbl(nx), xoutdbl(nout), thisGrad(nx); - Eigen::MatrixXd trueJac = Eigen::MatrixXd::Zero(3, 3); + Eigen::MatrixXd trueJac = Eigen::MatrixXd::Zero(3, 3); for(int i = 0; i < nx; i++){ xdbl[i] = i; @@ -321,7 +321,7 @@ TEST(linear_interpolation, xoutgradient){ for(int k = 0; k < nout; k++){ xout[k] = xoutdbl[k]; } - yout = torsten::linear_interpolation(xout, x, y); + yout = torsten::pmx_ln_interpolate(xout, x, y); yout[i].grad(xout, thisGrad); @@ -331,7 +331,7 @@ TEST(linear_interpolation, xoutgradient){ } } -TEST(linear_interpolation, error_conditions) { +TEST(pmx_ln_interpolate, error_conditions) { using stan::math::var; int nx = 5, nout = 3; std::vector x(nx), y(nx), xout(nout), yout; @@ -346,34 +346,34 @@ TEST(linear_interpolation, error_conditions) { xout[2] = 4.5; std::vector xout_bad; - EXPECT_THROW_MSG(torsten::linear_interpolation(xout_bad, x, y), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout_bad, x, y), std::invalid_argument, "xout has size 0"); std::vector x_bad; - EXPECT_THROW_MSG(torsten::linear_interpolation(xout, x_bad, y), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout, x_bad, y), std::invalid_argument, "x has size 0"); std::vector y_bad; - EXPECT_THROW_MSG(torsten::linear_interpolation(xout, x, y_bad), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout, x, y_bad), std::invalid_argument, "y has size 0"); std::vector x3_bad = x; x3_bad[2] = 0.0; - EXPECT_THROW_MSG(torsten::linear_interpolation(xout, x3_bad, y), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout, x3_bad, y), std::domain_error, "x is not a valid ordered vector"); - std::vector x2_bad(nx - 1); + std::vector x2_bad(nx - 1); for(int i = 0; i < (nx - 1); i++) x2_bad[i] = x[i]; - EXPECT_THROW_MSG(torsten::linear_interpolation(xout, x2_bad, y), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout, x2_bad, y), std::invalid_argument, "size of x (4) and size of y (5) must match in size"); } -TEST(linear_interpolation, error_conditions_inf) { +TEST(pmx_ln_interpolate, error_conditions_inf) { using stan::math::var; std::stringstream expected_is_inf; expected_is_inf << "is " << std::numeric_limits::infinity(); @@ -394,37 +394,37 @@ TEST(linear_interpolation, error_conditions_inf) { std::vector xout_bad = xout; xout_bad[0] = inf; - EXPECT_THROW_MSG(torsten::linear_interpolation(xout_bad, x, y), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout_bad, x, y), std::domain_error, "xout"); - EXPECT_THROW_MSG(torsten::linear_interpolation(xout_bad, x, y), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout_bad, x, y), std::domain_error, expected_is_inf.str()); xout_bad = xout; xout_bad[0] = -inf; - EXPECT_THROW_MSG(torsten::linear_interpolation(xout_bad, x, y), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout_bad, x, y), std::domain_error, "xout"); - EXPECT_THROW_MSG(torsten::linear_interpolation(xout_bad, x, y), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout_bad, x, y), std::domain_error, expected_is_neg_inf.str()); std::vector x_bad = x; x_bad[0] = inf; - EXPECT_THROW_MSG(torsten::linear_interpolation(xout, x_bad, y), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout, x_bad, y), std::domain_error, - "x"); - EXPECT_THROW_MSG(torsten::linear_interpolation(xout, x_bad, y), + "x[1]"); + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout, x_bad, y), std::domain_error, expected_is_inf.str()); std::vector y_bad = y; y_bad[0] = -inf; - EXPECT_THROW_MSG(torsten::linear_interpolation(xout, x, y_bad), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout, x, y_bad), std::domain_error, "y"); - EXPECT_THROW_MSG(torsten::linear_interpolation(xout, x, y_bad), + EXPECT_THROW_MSG(torsten::pmx_ln_interpolate(xout, x, y_bad), std::domain_error, expected_is_neg_inf.str()); } diff --git a/cmdstan/stan/lib/stan_math/stan/math/torsten/torsten.hpp b/cmdstan/stan/lib/stan_math/stan/math/torsten/torsten.hpp index 54808b9d83..ecfe46969f 100644 --- a/cmdstan/stan/lib/stan_math/stan/math/torsten/torsten.hpp +++ b/cmdstan/stan/lib/stan_math/stan/math/torsten/torsten.hpp @@ -16,7 +16,7 @@ #include #include -#include +#include #include #include diff --git a/cmdstan/stan/src/test/test-models/good/function-signatures/math/matrix/linear_interpolation.stan b/cmdstan/stan/src/test/test-models/good/function-signatures/math/matrix/linear_interpolation.stan deleted file mode 100644 index 0d38a18f01..0000000000 --- a/cmdstan/stan/src/test/test-models/good/function-signatures/math/matrix/linear_interpolation.stan +++ /dev/null @@ -1,40 +0,0 @@ -data { - int d_int; - real x_vec[d_int]; - real y_vec[d_int]; - real xout; - int dout_int; - real xout_vec[dout_int]; -} -transformed data { - real yout; - real yout_vec[dout_int]; - - yout = linear_interpolation(xout, x_vec, y_vec); - yout_vec = linear_interpolation(xout_vec, x_vec, y_vec); -} -parameters { - real px_vec[d_int]; - real py_vec[d_int]; - real pxout; - real pxout_vec[dout_int]; - real y_p; -} -transformed parameters { - real tp_yout; - real tp_yout_vec[dout_int]; - - tp_yout = linear_interpolation(xout, x_vec, y_vec); - tp_yout = linear_interpolation(xout, px_vec, py_vec); - tp_yout = linear_interpolation(pxout, x_vec, y_vec); - tp_yout = linear_interpolation(pxout, px_vec, py_vec); - - tp_yout_vec = linear_interpolation(xout_vec, x_vec, y_vec); - tp_yout_vec = linear_interpolation(xout_vec, px_vec, py_vec); - tp_yout_vec = linear_interpolation(pxout_vec, x_vec, y_vec); - tp_yout_vec = linear_interpolation(pxout_vec, px_vec, py_vec); -} - -model { - y_p ~ normal(0,1); -} diff --git a/cmdstan/stan/src/test/test-models/good/parser-generator/generalOdeModel_control.stan b/cmdstan/stan/src/test/test-models/good/parser-generator/generalOdeModel_control.stan deleted file mode 100644 index 2f79ab1572..0000000000 --- a/cmdstan/stan/src/test/test-models/good/parser-generator/generalOdeModel_control.stan +++ /dev/null @@ -1,123 +0,0 @@ -functions { - - // define ODE system for two compartmnt model - real[] twoCptModelODE(real t, - real[] x, - real[] parms, - real[] rate, // in this example, rate is treated as data - int[] dummy){ - - // Parameters - real CL = parms[1]; - real Q = parms[2]; - real V1 = parms[3]; - real V2 = parms[4]; - real ka = parms[5]; - - // Re-parametrization - real k10 = CL / V1; - real k12 = Q / V1; - real k21 = Q / V2; - - // Return object (derivative) - real y[3]; // 1 element per compartment of - // the model - - // PK component of the ODE system - y[1] = -ka*x[1]; - y[2] = ka*x[1] - (k10 + k12)*x[2] + k21*x[3]; - y[3] = k12*x[2] - k21*x[3]; - - return y; - } - -} - -data{ - int nt; // number of events - int nObs; // number of observation - int iObs[nObs]; // index of observation - - // NONMEM data - int cmt[nt]; - int evid[nt]; - int addl[nt]; - int ss[nt]; - real amt[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; -} - -transformed data{ - int nTheta = 5; // number of ODE parameters in Two Compartment Model - int nCmt = 3; // number of compartments in model - - // Since we're not trying to evaluate the bio-variability (F) and - // the lag times, we declare them as data. - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - - real CL_data; - real Q_data; - real V2_data; - real V3_data; - real ka_data; - - real rtol; - real atol; - int max_step; - - rtol = 1e-8; - atol = 1e-8; - max_step = 100000; - - CL_data = 5; - ka_data = 1.2; - Q_data = 8; - V2_data = 20; - V3_data = 70; - - for (i in 1:nt) { - theta_data[i] = { CL_data, Q_data, V2_data, V3_data, ka_data }; - biovar_data[i] = { 1, 1, 1 }; - tlag_data[i] = { 0, 0, 0 }; - } - -} - -generated quantities { - real theta[nt, nTheta]; // ODE parameters - real biovar[nt, nCmt]; - real tlag[nt, nCmt]; - - matrix[nt, nCmt] x; - vector[nt] cHat; - - real CL; - real Q; - real V2; - real V3; - real ka; - real sigma; - - vector[nObs] cHatDat1; - - CL = 5; - ka = 1.2; - Q = 8; - sigma = 0.01; - V2 = 20; /* central cpt */ - V3 = 70; - - for (i in 1:nt) { - theta[i] = { CL, Q, V2, V3, ka }; - biovar[i] = { 1, 1, 1 }; - tlag[i] = { 0, 0, 0 }; - } - - /* data args */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data, tlag_data, rtol, atol, max_step); cHat = col(x, 2) ./ V2; cHatDat1 = cHat[iObs]; -} - diff --git a/cmdstan/stan/src/test/test-models/good/parser-generator/mixOdeModel.stan b/cmdstan/stan/src/test/test-models/good/parser-generator/mixOdeModel.stan deleted file mode 100644 index ab1f90bb24..0000000000 --- a/cmdstan/stan/src/test/test-models/good/parser-generator/mixOdeModel.stan +++ /dev/null @@ -1,104 +0,0 @@ -functions{ - - real[] foo(real t, - real[] x, - real[] x_pk, - real[] parms, - real[] rdummy, - int[] idummy){ - real V1 = parms[3]; - real kout = parms[6]; - real effect0 = parms[7]; - real EC50 = parms[8]; - -/* parms = {CL, Q, V1, V2, ka, kout, effect0, ec50}; */ - real conc = x_pk[2] / V1; - real Edrug = conc / (EC50 + conc); - real kin0 = kout * effect0; - real kin = kin0 * (1 - Edrug); - - real effect = x[1] + effect0; - - real dxdt[1]; - - dxdt[1] = kin - kout * effect; - - return dxdt; - } -} - -data{ - int nt; - int nObs; // number of observation - int iObs[nObs]; // index of observation - real amt[nt]; // mcg -- try 80000 mcg - int cmt[nt]; - int evid[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; - int addl[nt]; - int ss[nt]; - -} - -transformed data{ - int nTheta = 8; - real ka = 2.0; // 1/h - real CL = 10; // L/h - real V1 = 35; // L - real V2 = 105; // L - real Q = 15; // L/h - real kout = 0.05; // 1/h - real effect0 = 10; // units - real EC50 = 400; // ng/mL - int nCmt = 1; - - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - - real rtol; - real atol; - int max_step; - - for (i in 1:nt) { - theta_data[i] = { CL, Q, V1, V2, ka, kout, effect0, EC50}; - biovar_data[i] = rep_array(1.0, nCmt); - tlag_data[i] = rep_array(0.0, nCmt); - } - - rtol = 1e-8; - atol = 1e-8; - max_step = 100000; -} - -parameters{ -} - -transformed parameters{ -} - -model{ -} - -generated quantities { - real theta[nt, nTheta]; // ODE parameters - real biovar[nt, nCmt]; - real tlag[nt, nCmt]; - - matrix[nt, nCmt + 3] x; - vector[nt] cHat; - - for (i in 1:nt) { - theta[i] = { CL, Q, V1, V2, ka, kout, effect0, EC50}; - biovar[i] = rep_array(1.0, nCmt); - tlag[i] = rep_array(0.0, nCmt); - } - - x = mixOde2CptModel_bdf(foo, nCmt, - time, amt, rate, ii, evid, cmt, - addl, ss, theta , biovar_data, - tlag_data); -} - diff --git a/cmdstan/stan/src/test/test-models/good/parser-generator/mixOdeModel_control.stan b/cmdstan/stan/src/test/test-models/good/parser-generator/mixOdeModel_control.stan deleted file mode 100644 index db76f6b1a4..0000000000 --- a/cmdstan/stan/src/test/test-models/good/parser-generator/mixOdeModel_control.stan +++ /dev/null @@ -1,104 +0,0 @@ -functions{ - - real[] foo(real t, - real[] x, - real[] x_pk, - real[] parms, - real[] rdummy, - int[] idummy){ - real V1 = parms[3]; - real kout = parms[6]; - real effect0 = parms[7]; - real EC50 = parms[8]; - -/* parms = {CL, Q, V1, V2, ka, kout, effect0, ec50}; */ - real conc = x_pk[2] / V1; - real Edrug = conc / (EC50 + conc); - real kin0 = kout * effect0; - real kin = kin0 * (1 - Edrug); - - real effect = x[1] + effect0; - - real dxdt[1]; - - dxdt[1] = kin - kout * effect; - - return dxdt; - } -} - -data{ - int nt; - int nObs; // number of observation - int iObs[nObs]; // index of observation - real amt[nt]; // mcg -- try 80000 mcg - int cmt[nt]; - int evid[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; - int addl[nt]; - int ss[nt]; - -} - -transformed data{ - int nTheta = 8; - real ka = 2.0; // 1/h - real CL = 10; // L/h - real V1 = 35; // L - real V2 = 105; // L - real Q = 15; // L/h - real kout = 0.05; // 1/h - real effect0 = 10; // units - real EC50 = 400; // ng/mL - int nCmt = 1; - - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - - real rtol; - real atol; - int max_step; - - for (i in 1:nt) { - theta_data[i] = { CL, Q, V1, V2, ka, kout, effect0, EC50}; - biovar_data[i] = rep_array(1.0, nCmt); - tlag_data[i] = rep_array(0.0, nCmt); - } - - rtol = 1e-8; - atol = 1e-8; - max_step = 100000; -} - -parameters{ -} - -transformed parameters{ -} - -model{ -} - -generated quantities { - real theta[nt, nTheta]; // ODE parameters - real biovar[nt, nCmt]; - real tlag[nt, nCmt]; - - matrix[nt, nCmt + 3] x; - vector[nt] cHat; - - for (i in 1:nt) { - theta[i] = { CL, Q, V1, V2, ka, kout, effect0, EC50}; - biovar[i] = rep_array(1.0, nCmt); - tlag[i] = rep_array(0.0, nCmt); - } - - x = mixOde2CptModel_bdf(foo, nCmt, - time, amt, rate, ii, evid, cmt, - addl, ss, theta , biovar_data, - tlag_data, rtol, atol, max_step); -} - diff --git a/cmdstan/stan/src/test/test-models/good/parser-generator/pmx_solve_group.stan b/cmdstan/stan/src/test/test-models/good/parser-generator/pmx_solve_group.stan deleted file mode 100644 index 8e4065bd16..0000000000 --- a/cmdstan/stan/src/test/test-models/good/parser-generator/pmx_solve_group.stan +++ /dev/null @@ -1,141 +0,0 @@ -functions{ - - // define ODE system for two compartmnt model - real[] twoCptModelODE(real t, - real[] x, - real[] parms, - real[] rate, // in this example, rate is treated as data - int[] dummy){ - - // Parameters - real CL = parms[1]; - real Q = parms[2]; - real V1 = parms[3]; - real V2 = parms[4]; - real ka = parms[5]; - - // Re-parametrization - real k10 = CL / V1; - real k12 = Q / V1; - real k21 = Q / V2; - - // Return object (derivative) - real y[3]; // 1 element per compartment of - // the model - - // PK component of the ODE system - y[1] = -ka*x[1]; - y[2] = ka*x[1] - (k10 + k12)*x[2] + k21*x[3]; - y[3] = k12*x[2] - k21*x[3]; - - return y; - } -} -data{ - int np; /* population size */ - int nt; // number of events - int nObs; // number of observations - int iObs[nObs]; // index of observation - - // NONMEM data - int cmt[np * nt]; - int evid[np * nt]; - int addl[np * nt]; - int ss[np * nt]; - real amt[np * nt]; - real time[np * nt]; - real rate[np * nt]; - real ii[np * nt]; - - real cObs[np*nObs]; // observed concentration (dependent variable) -} - -transformed data { - real logCObs[np*nObs]; - int len[np]; - int len_theta[np]; - int len_biovar[np]; - int len_tlag[np]; - - int nTheta = 5; // number of parameters - int nCmt = 3; // number of compartments - real biovar[np * nt, nCmt]; - real tlag[np * nt, nCmt]; - - logCObs = log(cObs); - - for (id in 1:np) { - for (j in 1:nt) { - for (i in 1:nCmt) { - biovar[(id - 1) * nt + j, i] = 1; - tlag[(id - 1) * nt + j, i] = 0; - } - } - len[id] = nt; - len_theta[id] = nt; - len_biovar[id] = nt; - len_tlag[id] = nt; - } -} - -parameters{ - real CL[np]; - real Q[np]; - real V1[np]; - real V2[np]; - real ka[np]; - real sigma[np]; -} - -transformed parameters{ - real theta[np * nt, nTheta]; - vector[nt] cHat[np]; - real cHatObs[np*nObs]; - matrix[3, nt * np] x; - - for (id in 1:np) { - for (it in 1:nt) { - theta[(id - 1) * nt + it, 1] = CL[id]; - theta[(id - 1) * nt + it, 2] = Q[id]; - theta[(id - 1) * nt + it, 3] = V1[id]; - theta[(id - 1) * nt + it, 4] = V2[id]; - theta[(id - 1) * nt + it, 5] = ka[id]; - } - } - - x = pmx_solve_group_bdf(twoCptModelODE, 3, len, - time, amt, rate, ii, evid, cmt, addl, ss, - theta, biovar, tlag); - - - x = pmx_solve_group_bdf(twoCptModelODE, 3, len, - time, amt, rate, ii, evid, cmt, addl, ss, - theta, biovar, tlag, 1.e-5, 1.e-5, 1000); - for (id in 1:np) { - for (j in 1:nt) { - cHat[id][j] = x[2, (id - 1) * nt + j] ./ V1[id]; - } - } - - for (id in 1:np) { - for(i in 1:nObs){ - cHatObs[(id - 1)*nObs + i] = cHat[id][iObs[i]]; // predictions for observed data records - } - } -} - -model{ - // informative prior - for(id in 1:np){ - CL[id] ~ lognormal(log(10), 0.25); - Q[id] ~ lognormal(log(15), 0.5); - V1[id] ~ lognormal(log(35), 0.25); - V2[id] ~ lognormal(log(105), 0.5); - ka[id] ~ lognormal(log(2.5), 1); - sigma[id] ~ cauchy(0, 1); - - for(i in 1:nObs){ - logCObs[(id - 1)*nObs + i] ~ normal(log(cHatObs[(id - 1)*nObs + i]), sigma[id]); - } - } -} diff --git a/cmdstan/stan/src/test/test-models/good/parser-generator/pmx_solve_rk45.stan b/cmdstan/stan/src/test/test-models/good/parser-generator/pmx_solve_rk45.stan deleted file mode 100644 index 631e130e77..0000000000 --- a/cmdstan/stan/src/test/test-models/good/parser-generator/pmx_solve_rk45.stan +++ /dev/null @@ -1,127 +0,0 @@ -functions { - - // define ODE system for two compartmnt model - real[] twoCptModelODE(real t, - real[] x, - real[] parms, - real[] rate, // in this example, rate is treated as data - int[] dummy){ - - // Parameters - real CL = parms[1]; - real Q = parms[2]; - real V1 = parms[3]; - real V2 = parms[4]; - real ka = parms[5]; - - // Re-parametrization - real k10 = CL / V1; - real k12 = Q / V1; - real k21 = Q / V2; - - // Return object (derivative) - real y[3]; // 1 element per compartment of - // the model - - // PK component of the ODE system - y[1] = -ka*x[1]; - y[2] = ka*x[1] - (k10 + k12)*x[2] + k21*x[3]; - y[3] = k12*x[2] - k21*x[3]; - - return y; - } - -} - -data{ - int nt; // number of events - int nObs; // number of observation - int iObs[nObs]; // index of observation - - // NONMEM data - int cmt[nt]; - int evid[nt]; - int addl[nt]; - int ss[nt]; - real amt[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; -} - -transformed data{ - int nTheta = 5; // number of ODE parameters in Two Compartment Model - int nCmt = 3; // number of compartments in model - - // Since we're not trying to evaluate the bio-variability (F) and - // the lag times, we declare them as data. - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - - real CL_data; - real Q_data; - real V2_data; - real V3_data; - real ka_data; - - real rtol; - real atol; - int max_step; - - rtol = 1e-8; - atol = 1e-8; - max_step = 100000; - - CL_data = 5; - ka_data = 1.2; - Q_data = 8; - V2_data = 20; - V3_data = 70; - - for (i in 1:nt) { - theta_data[i] = { CL_data, Q_data, V2_data, V3_data, ka_data }; - biovar_data[i] = { 1, 1, 1 }; - tlag_data[i] = { 0, 0, 0 }; - } - -} - -generated quantities { - real theta[nt, nTheta]; // ODE parameters - real biovar[nt, nCmt]; - real tlag[nt, nCmt]; - - matrix[nt, nCmt] x; - vector[nt] cHat; - - real CL; - real Q; - real V2; - real V3; - real ka; - real sigma; - - vector[nObs] cHatDat1; - - CL = 5; - ka = 1.2; - Q = 8; - sigma = 0.01; - V2 = 20; /* central cpt */ - V3 = 70; - - for (i in 1:nt) { - theta[i] = { CL, Q, V2, V3, ka }; - biovar[i] = { 1, 1, 1 }; - tlag[i] = { 0, 0, 0 }; - } - - /* data args */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data, biovar_data, tlag_data); cHat = col(x, 2) ./ V2; cHatDat1 = cHat[iObs]; - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data, biovar_data, tlag_data, - 1.e-5, 1.e-6, 1000); cHat = col(x, 2) ./ V2; cHatDat1 = cHat[iObs]; - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data, biovar_data, tlag_data, - 1.e-5, 1.e-6, 1000, 1.e-5, 1.e-6, 100); cHat = col(x, 2) ./ V2; cHatDat1 = cHat[iObs]; -} - diff --git a/cmdstan/stan/src/test/test-models/good/parser-generator/univariate_integral.stan b/cmdstan/stan/src/test/test-models/good/parser-generator/univariate_integral.stan deleted file mode 100644 index bb1956e517..0000000000 --- a/cmdstan/stan/src/test/test-models/good/parser-generator/univariate_integral.stan +++ /dev/null @@ -1,24 +0,0 @@ -functions { - real foo(real t, - real[] theta, - real[] x, - int[] x_int) { - return 1.0; - } -} -data { - int T; - real t0; - real t1; - real theta[1]; -} -transformed data { - real x[0]; - int x_int[0]; -} -model { -} -generated quantities { - real y_hat; - y_hat = univariate_integral_rk45(foo, t0, t1, theta, x, x_int ); -} diff --git a/cmdstan/stan/src/test/test-models/good/torsten/PKModelOneCpt.stan b/cmdstan/stan/src/test/test-models/good/torsten/PKModelOneCpt.stan deleted file mode 100644 index fe67d4e8c4..0000000000 --- a/cmdstan/stan/src/test/test-models/good/torsten/PKModelOneCpt.stan +++ /dev/null @@ -1,197 +0,0 @@ -data { - int nt; - int nCmt; - int cmt[nt]; - int nTheta; - int evid[nt]; - int addl[nt]; - int ss[nt]; - real amt[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; -} - -transformed data { - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - matrix[nt, nCmt] x_data_transpose; - matrix[nCmt, nt] x_data; - - x_data_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_data_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data ); - x_data_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data ); - x_data_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data[0]); - x_data_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data[0]); - x_data_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data ); - x_data_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data[0]); - x_data_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0]); - - x_data = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_data = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data ); - x_data = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data ); - x_data = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data[0]); - x_data = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data[0]); - x_data = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data ); - x_data = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data[0]); - x_data = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0]); -} - -parameters { - real y_p; -} - -transformed parameters { - real theta_parm[nt, nTheta]; - real biovar_parm[nt, nCmt]; - real tlag_parm[nt, nCmt]; - matrix[nt, nCmt] x_parm_transpose; - matrix[nCmt, nt] x_parm; - - // expression types for last three arguments: - // parm, parm, parm - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0]); - - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0]); - - // expression types for last three arguments: - // data, parm, parm - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm , tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm[0], tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm[0], tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm , tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0], tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0], tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0]); - - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm , tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm[0], tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm , tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0], tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0]); - - // expression types for last three arguments: - // data, data, parm - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0]); - - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0]); - - // expression types for last three arguments: - // data, data, data - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0]); - - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0]); - - - // expression types for last three arguments: - // parm, data, parm - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_parm ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_parm[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0]); - - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_parm ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0]); - - // expression types for last three arguments: - // parm, data, data - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_data[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_data[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_data[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0]); - - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_data[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0]); - - // expression types for last three arguments: - // parm, parm, data - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_data[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_data[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_data ); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_data[0]); - x_parm_transpose = PKModelOneCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0]); - - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_data[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_data[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_data ); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_data[0]); - x_parm = pmx_solve_onecpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0]); - -} - -model { - y_p ~ normal(0,1); -} diff --git a/cmdstan/stan/src/test/test-models/good/torsten/PKModelTwoCpt.stan b/cmdstan/stan/src/test/test-models/good/torsten/PKModelTwoCpt.stan deleted file mode 100644 index 48c06cafed..0000000000 --- a/cmdstan/stan/src/test/test-models/good/torsten/PKModelTwoCpt.stan +++ /dev/null @@ -1,196 +0,0 @@ -data { - int nt; - int nCmt; - int cmt[nt]; - int nTheta; - int evid[nt]; - int addl[nt]; - int ss[nt]; - real amt[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; -} - -transformed data { - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - matrix[nt, nCmt] x_data_transpose; - matrix[nCmt, nt] x_data; - - x_data_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_data_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data ); - x_data_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data ); - x_data_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data[0]); - x_data_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data[0]); - x_data_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data ); - x_data_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data[0]); - x_data_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0]); - - x_data = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_data = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data ); - x_data = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data ); - x_data = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data[0]); - x_data = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data[0]); - x_data = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data ); - x_data = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data[0]); - x_data = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0]); -} - -parameters { - real y_p; -} - -transformed parameters { - real theta_parm[nt, nTheta]; - real biovar_parm[nt, nCmt]; - real tlag_parm[nt, nCmt]; - matrix[nt, nCmt] x_parm_transpose; - matrix[nCmt, nt] x_parm; - - // expression types for last three arguments: - // parm, parm, parm - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0]); - - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0]); - - // expression types for last three arguments: - // data, parm, parm - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm , tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm[0], tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm[0], tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm , tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0], tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0], tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0]); - - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm , tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm[0], tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_parm , tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0], tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0]); - - // expression types for last three arguments: - // data, data, parm - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0]); - - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0]); - - // expression types for last three arguments: - // data, data, data - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0]); - - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0], biovar_data , tlag_data[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0]); - - - // expression types for last three arguments: - // parm, data, parm - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_parm ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_parm[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0]); - - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_parm ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0]); - - // expression types for last three arguments: - // parm, data, data - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_data[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_data[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_data[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0]); - - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_data , tlag_data[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0]); - - // expression types for last three arguments: - // parm, parm, data - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_data[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_data[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_data ); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_data[0]); - x_parm_transpose = PKModelTwoCpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0]); - - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm[0], tlag_data[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0], biovar_parm , tlag_data[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_data ); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0], tlag_data[0]); - x_parm = pmx_solve_twocpt(time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0]); -} - -model { - y_p ~ normal(0,1); -} diff --git a/cmdstan/stan/src/test/test-models/good/torsten/generalCptModel.stan b/cmdstan/stan/src/test/test-models/good/torsten/generalCptModel.stan deleted file mode 100644 index 915eac635d..0000000000 --- a/cmdstan/stan/src/test/test-models/good/torsten/generalCptModel.stan +++ /dev/null @@ -1,889 +0,0 @@ -functions { - real[] ode(real t, - real[] y, - real[] theta, - real[] x, - int[] x_int) { - real dydt[2]; - return dydt; - } -} - -data { - int nt; - int nTheta; - int cmt[nt]; - int evid[nt]; - int addl[nt]; - int ss[nt]; - real amt[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; - -int T; -real y0_d[2]; -real t0; -real ts[T]; -real theta_d[1]; -real x[0]; -int x_int[0]; -} - -transformed data { - int nCmt = 2; - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - matrix[nt, nCmt] x_data; - - nCmt = 2; - - // RK45 - x_data = generalOdeModel_rk45(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_rk45(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_rk45(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_rk45(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_rk45(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_rk45(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_rk45(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_rk45(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); - - // BDF - x_data = generalOdeModel_bdf(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_bdf(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_bdf(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_bdf(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_bdf(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_bdf(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_bdf(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = generalOdeModel_bdf(ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); - - /***************************************************************** - pmx_solve_rk45/adams/bdf - *****************************************************************/ - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); - - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); - - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); - - /***************************************************************** - pmx_solve_rk45/adams/bdf with controls - *****************************************************************/ - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_data = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_data = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_data = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); -} - -parameters { - real y_p; - - real y0_p[2]; - real theta_p[1]; -} - -transformed parameters { - real theta_parm[nt, nTheta]; - real biovar_parm[nt, nCmt]; - real tlag_parm[nt, nCmt]; - matrix[nt, nCmt] x_parm; - - // RK45 - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0] ); - - - // BDF - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0] ); - - // ADAMS - /* generalOdeModel doesn't support Adams */ - - /***************************************************************** - pmx_solve_ode - ****************************************************************/ - // RK45 - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0] ); - - - // BDF - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0] ); - - // ADAMS - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0] ); - - - /**************************************************************** - ode solvers w/o controls - ****************************************************************/ - // RK45 - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0] ); - - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0] ); - - - // BDF - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0] ); - - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data[0] ); - x_parm = generalOdeModel_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0] ); - - // ADAMS - /* generalOdeModel doesn't support Adams */ - - /***************************************************************** - pmx_solve_ode - ****************************************************************/ - // RK45 - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_rk45 (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0] ); - - - // BDF - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_bdf (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0] ); - - // ADAMS - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_parm[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_parm , tlag_data[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_parm[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_parm[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_data , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_data , tlag_data[0] ); - - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm[0] , biovar_parm , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm[0] , tlag_data[0] ); - x_parm = pmx_solve_adams (ode, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_parm , biovar_parm , tlag_data[0] ); -} - -model { - y_p ~ normal(0,1); -} diff --git a/cmdstan/stan/src/test/test-models/good/torsten/generalOdeModel_good.stan b/cmdstan/stan/src/test/test-models/good/torsten/generalOdeModel_good.stan deleted file mode 100644 index a6341764c8..0000000000 --- a/cmdstan/stan/src/test/test-models/good/torsten/generalOdeModel_good.stan +++ /dev/null @@ -1,794 +0,0 @@ -functions { - - // define ODE system for two compartmnt model - real[] twoCptModelODE(real t, - real[] x, - real[] parms, - real[] rate, // in this example, rate is treated as data - int[] dummy){ - - // Parameters - real CL = parms[1]; - real Q = parms[2]; - real V1 = parms[3]; - real V2 = parms[4]; - real ka = parms[5]; - - // Re-parametrization - real k10 = CL / V1; - real k12 = Q / V1; - real k21 = Q / V2; - - // Return object (derivative) - real y[3]; // 1 element per compartment of - // the model - - // PK component of the ODE system - y[1] = -ka*x[1]; - y[2] = ka*x[1] - (k10 + k12)*x[2] + k21*x[3]; - y[3] = k12*x[2] - k21*x[3]; - - return y; - } - -} - -data{ - int nt; // number of events - int nObs; // number of observation - int iObs[nObs]; // index of observation - - // NONMEM data - int cmt[nt]; - int evid[nt]; - int addl[nt]; - int ss[nt]; - real amt[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; -} - -transformed data{ - int nTheta = 5; // number of ODE parameters in Two Compartment Model - int nCmt = 3; // number of compartments in model - - // Since we're not trying to evaluate the bio-variability (F) and - // the lag times, we declare them as data. - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - - real CL_data; - real Q_data; - real V2_data; - real V3_data; - real ka_data; - - real rtol; - real atol; - int max_step; - - real ss_rtol; - real ss_atol; - int ss_max_step; - - rtol = 1e-8; - atol = 1e-8; - max_step = 100000; - - ss_rtol = 1e-5; - ss_atol = 1e-6; - ss_max_step = 100; - - CL_data = 5; - ka_data = 1.2; - Q_data = 8; - V2_data = 20; - V3_data = 70; - - for (i in 1:nt) { - theta_data[i] = { CL_data, Q_data, V2_data, V3_data, ka_data }; - biovar_data[i] = { 1, 1, 1 }; - tlag_data[i] = { 0, 0, 0 }; - } -} - -generated quantities { - real theta[nt, nTheta]; // ODE parameters - real biovar[nt, nCmt]; - real tlag[nt, nCmt]; - - matrix[nt, nCmt] x; - vector[nt] cHat; - - real CL; - real Q; - real V2; - real V3; - real ka; - real sigma; - - CL = 5; - ka = 1.2; - Q = 8; - sigma = 0.01; - V2 = 20; /* central cpt */ - V3 = 70; - - for (i in 1:nt) { - theta[i] = { CL, Q, V2, V3, ka }; - biovar[i] = { 1, 1, 1 }; - tlag[i] = { 0, 0, 0 }; - } - - /***************************************************************** - generalodemodel signature will be deprecated - *****************************************************************/ - /* data args */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - - /* param args */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1] ); - - /* theta: data , biovar: param , tlag: param */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1] ); - - /* theta: parm , biovar: data , tlag: param */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1] ); - - /* theta: parm , biovar: parm , tlag: data */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1] ); - - /* theta: data , biovar: data , tlag: param */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1] ); - - /* theta: data , biovar: param , tlag: data */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1] ); - - /* theta: param , biovar: data , tlag: data */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1] ); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1] ); - - /* bdf */ - /* data args */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - - /* param args */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1] ); - - /* theta: data , biovar: param , tlag: param */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1] ); - - /* theta: parm , biovar: data , tlag: param */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1] ); - - /* theta: parm , biovar: parm , tlag: data */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1] ); - - /* theta: data , biovar: data , tlag: param */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1] ); - - /* theta: data , biovar: param , tlag: data */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1] ); - - /* theta: param , biovar: data , tlag: data */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1] ); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1] ); - - - /***************************************************************** - generalodemodel with control signature will be deprecated - *****************************************************************/ - /* data args */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , rtol, atol, max_step); - - /* param args */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1] , rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: param */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1] , rtol, atol, max_step); - - /* theta: parm , biovar: data , tlag: param */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1] , rtol, atol, max_step); - - /* theta: parm , biovar: parm , tlag: data */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1] , rtol, atol, max_step); - - /* theta: data , biovar: data , tlag: param */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1] , rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: data */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1] , rtol, atol, max_step); - - /* theta: param , biovar: data , tlag: data */ - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1] , rtol, atol, max_step); - - /* bdf */ - /* data args */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , rtol, atol, max_step); - - /* param args */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1] , rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: param */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1] , rtol, atol, max_step); - - /* theta: parm , biovar: data , tlag: param */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1] , rtol, atol, max_step); - - /* theta: parm , biovar: parm , tlag: data */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1] , rtol, atol, max_step); - - /* theta: data , biovar: data , tlag: param */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1] , rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: data */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1] , rtol, atol, max_step); - - /* theta: param , biovar: data , tlag: data */ - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = generalOdeModel_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1] , rtol, atol, max_step); - - /***************************************************************** - pmx_solve_ode replaces the old generalodemodel with - returned matrix tranposed - *****************************************************************/ - /* data args */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - - /* param args */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1] ); - - /* theta: data , biovar: param , tlag: param */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1] ); - - /* theta: parm , biovar: data , tlag: param */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1] ); - - /* theta: parm , biovar: parm , tlag: data */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1] ); - - /* theta: data , biovar: data , tlag: param */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1] ); - - /* theta: data , biovar: param , tlag: data */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1] ); - - /* theta: param , biovar: data , tlag: data */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1] ); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1] ); - - /* bdf */ - /* data args */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); - - /* param args */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1] ); - - /* theta: data , biovar: param , tlag: param */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1] ); - - /* theta: parm , biovar: data , tlag: param */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1] ); - - /* theta: parm , biovar: parm , tlag: data */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1] ); - - /* theta: data , biovar: data , tlag: param */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1] ); - - /* theta: data , biovar: param , tlag: data */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1] ); - - /* theta: param , biovar: data , tlag: data */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1] ); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1] ); - - /***************************************************************** - pmx_solve_ode with control replaces the old generalodemodel with - returned matrix tranposed - *****************************************************************/ - /* data args */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , rtol, atol, max_step); - - /* param args */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1] , rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: param */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1] , rtol, atol, max_step); - - /* theta: parm , biovar: data , tlag: param */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1] , rtol, atol, max_step); - - /* theta: parm , biovar: parm , tlag: data */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1] , rtol, atol, max_step); - - /* theta: data , biovar: data , tlag: param */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1] , rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: data */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1] , rtol, atol, max_step); - - /* theta: param , biovar: data , tlag: data */ - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_rk45(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1] , rtol, atol, max_step); - - /* bdf */ - /* data args */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , rtol, atol, max_step); - - /* param args */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1] , rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: param */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1] , rtol, atol, max_step); - - /* theta: parm , biovar: data , tlag: param */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1] , rtol, atol, max_step); - - /* theta: parm , biovar: parm , tlag: data */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1] , rtol, atol, max_step); - - /* theta: data , biovar: data , tlag: param */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1] , rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: data */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1] , rtol, atol, max_step); - - /* theta: param , biovar: data , tlag: data */ - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1] , rtol, atol, max_step); - x = pmx_solve_bdf(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1] , rtol, atol, max_step); - - /* algebra solver controls: theta: param , biovar: data , tlag: data */ - x = pmx_solve_adams(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data , rtol, atol, max_step, ss_rtol, ss_atol, ss_max_step); - x = pmx_solve_adams(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data , rtol, atol, max_step, ss_rtol, ss_atol, ss_max_step); - x = pmx_solve_adams(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data , rtol, atol, max_step, ss_rtol, ss_atol, ss_max_step); - x = pmx_solve_adams(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1] , rtol, atol, max_step, ss_rtol, ss_atol, ss_max_step); - x = pmx_solve_adams(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1] , rtol, atol, max_step, ss_rtol, ss_atol, ss_max_step); - x = pmx_solve_adams(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data , rtol, atol, max_step, ss_rtol, ss_atol, ss_max_step); - x = pmx_solve_adams(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1] , rtol, atol, max_step, ss_rtol, ss_atol, ss_max_step); - x = pmx_solve_adams(twoCptModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1] , rtol, atol, max_step, ss_rtol, ss_atol, ss_max_step); -} - diff --git a/cmdstan/stan/src/test/test-models/good/torsten/linOdeModel.stan b/cmdstan/stan/src/test/test-models/good/torsten/linOdeModel.stan deleted file mode 100644 index c4725dfd9e..0000000000 --- a/cmdstan/stan/src/test/test-models/good/torsten/linOdeModel.stan +++ /dev/null @@ -1,194 +0,0 @@ -data { - int nt; - int nCmt; - int cmt[nt]; - int evid[nt]; - int addl[nt]; - int ss[nt]; - real amt[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; -} - -transformed data { - matrix[nCmt, nCmt] K_data[nt]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - matrix[nt, nCmt] x_data_transpose; - matrix[nCmt, nt] x_data; - - x_data_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_data); - x_data_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_data); - x_data_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_data); - x_data_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_data[0]); - x_data_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_data[0]); - x_data_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_data); - x_data_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_data[0]); - x_data_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_data[0]); - - x_data = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_data); - x_data = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_data); - x_data = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_data); - x_data = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_data[0]); - x_data = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_data[0]); - x_data = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_data); - x_data = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_data[0]); - x_data = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_data[0]); -} - -parameters { - real y_p; -} - -transformed parameters { - matrix[nCmt, nCmt] K_parm[nt]; - real biovar_parm[nt, nCmt]; - real tlag_parm[nt, nCmt]; - matrix[nt, nCmt] x_parm_transpose; - matrix[nCmt, nt] x_parm; - - // expression types for last three arguments: - // parm, parm, parm - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm, tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm, tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm[0], tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm[0], tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm, tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm[0], tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm[0], tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm, tlag_parm[0]); - - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm, tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm, tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm[0], tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm, tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm[0], tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm, tlag_parm[0]); - - // expression types for last three arguments: - // data, parm, parm - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_parm, tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_parm, tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_parm[0], tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_parm[0], tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_parm, tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_parm[0], tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_parm[0], tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_parm, tlag_parm[0]); - - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_parm, tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_parm, tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_parm[0], tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_parm, tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_parm[0], tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_parm[0], tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_parm, tlag_parm[0]); - - // expression types for last three arguments: - // data, data, parm - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_parm[0]); - - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_parm[0]); - - // expression types for last three arguments: - // data, data, data - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_data[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_data[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_data[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_data[0]); - - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data[0], biovar_data, tlag_data[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_data, biovar_data, tlag_data[0]); - - // expression types for last three arguments: - // parm, data, parm - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data, tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data, tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data[0], tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data[0], tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data, tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data[0], tlag_parm); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data[0], tlag_parm[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data, tlag_parm[0]); - - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data, tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data, tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data[0], tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data, tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data[0], tlag_parm); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data[0], tlag_parm[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data, tlag_parm[0]); - - // expression types for last three arguments: - // parm, data, data - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data, tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data, tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data[0], tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data[0], tlag_data[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data, tlag_data[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data[0], tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data[0], tlag_data[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data, tlag_data[0]); - - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data, tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data, tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data[0], tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_data, tlag_data[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data[0], tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data[0], tlag_data[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_data, tlag_data[0]); - - // expression types for last three arguments: - // parm, parm, data - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm, tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm, tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm[0], tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm[0], tlag_data[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm, tlag_data[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm[0], tlag_data); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm[0], tlag_data[0]); - x_parm_transpose = linOdeModel(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm, tlag_data[0]); - - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm, tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm, tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm[0], tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm[0], tlag_data[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm[0], biovar_parm, tlag_data[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm[0], tlag_data); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm[0], tlag_data[0]); - x_parm = pmx_solve_linode(time, amt, rate, ii, evid, cmt, addl, ss, K_parm, biovar_parm, tlag_data[0]); -} - -model { - y_p ~ normal(0,1); -} diff --git a/cmdstan/stan/src/test/test-models/good/torsten/mixOde1CptModel.stan b/cmdstan/stan/src/test/test-models/good/torsten/mixOde1CptModel.stan deleted file mode 100644 index c383a50ff4..0000000000 --- a/cmdstan/stan/src/test/test-models/good/torsten/mixOde1CptModel.stan +++ /dev/null @@ -1,362 +0,0 @@ -functions { - real[] ode(real t, - real[] y, - real[] y_pk, - real[] theta, - real[] x, - int[] x_int) { - real dydt[2]; - return dydt; - } -} - -data { - int nt; - int nTheta; - int cmt[nt]; - int evid[nt]; - int addl[nt]; - int ss[nt]; - real amt[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; -} - -transformed data { - int nOde = 2; - int nCmt = 4; - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - matrix[nt, nCmt] x_data; - - // RK45 - x_data = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - - // BDF - x_data = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); -} - -parameters { - real y_p; - - real y0_p[2]; - real theta_p[1]; -} - -transformed parameters { - real theta_parm[nt, nTheta]; - real biovar_parm[nt, nCmt]; - real tlag_parm[nt, nCmt]; - matrix[nt, nCmt] x_parm; - - // RK45 - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - - - // BDF - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde1CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); -} - -model { - y_p ~ normal(0,1); -} diff --git a/cmdstan/stan/src/test/test-models/good/torsten/mixOde2CptModel.stan b/cmdstan/stan/src/test/test-models/good/torsten/mixOde2CptModel.stan deleted file mode 100644 index 5455f7ab46..0000000000 --- a/cmdstan/stan/src/test/test-models/good/torsten/mixOde2CptModel.stan +++ /dev/null @@ -1,363 +0,0 @@ -functions { - real[] ode(real t, - real[] y, - real[] y_pk, - real[] theta, - real[] x, - int[] x_int) { - real dydt[2]; - return dydt; - } -} - -data { - int nt; - int nTheta; - int cmt[nt]; - int evid[nt]; - int addl[nt]; - int ss[nt]; - real amt[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; -} - -transformed data { - int nOde = 2; - int nCmt = 4; - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - matrix[nt, nCmt] x_data; - - // RK45 - x_data = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - - // BDF - x_data = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_data = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); -} - -parameters { - real y_p; - - real y0_p[2]; - real theta_p[1]; -} - -transformed parameters { - real theta_parm[nt, nTheta]; - real biovar_parm[nt, nCmt]; - real tlag_parm[nt, nCmt]; - matrix[nt, nCmt] x_parm; - - // RK45 - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_rk45(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - - - // BDF - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data[0], biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_data, biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_parm, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_parm[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_parm[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_data, tlag_data[0], 1e-8, 1e-8, 1e8); - - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm[0], biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_data, 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm[0], tlag_data[0], 1e-8, 1e-8, 1e8); - x_parm = mixOde2CptModel_bdf(ode, nOde, time, amt, rate, ii, evid, cmt, - addl, ss, theta_parm, biovar_parm, tlag_data[0], 1e-8, 1e-8, 1e8); - -} - -model { - y_p ~ normal(0,1); -} diff --git a/cmdstan/stan/src/test/test-models/good/torsten/mixOdeModel_good.stan b/cmdstan/stan/src/test/test-models/good/torsten/mixOdeModel_good.stan deleted file mode 100644 index 1224bfe4d1..0000000000 --- a/cmdstan/stan/src/test/test-models/good/torsten/mixOdeModel_good.stan +++ /dev/null @@ -1,424 +0,0 @@ -functions{ - - real[] twoCptIndirectModelODE(real t, - real[] x, - real[] x_pk, - real[] parms, - real[] rdummy, - int[] idummy){ - real V1 = parms[3]; - real kout = parms[6]; - real effect0 = parms[7]; - real EC50 = parms[8]; - -/* parms = {CL, Q, V1, V2, ka, kout, effect0, ec50}; */ - real conc = x_pk[2] / V1; - real Edrug = conc / (EC50 + conc); - real kin0 = kout * effect0; - real kin = kin0 * (1 - Edrug); - - real effect = x[1] + effect0; - - real dxdt[1]; - - dxdt[1] = kin - kout * effect; - - return dxdt; - } -} - -data{ - int nt; - int nObs; // number of observation - int iObs[nObs]; // index of observation - real amt[nt]; // mcg -- try 80000 mcg - int cmt[nt]; - int evid[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; - int addl[nt]; - int ss[nt]; -} - -transformed data{ - int nTheta = 8; - real ka = 2.0; // 1/h - real CL = 10; // L/h - real V1 = 35; // L - real V2 = 105; // L - real Q = 15; // L/h - real kout = 0.05; // 1/h - real effect0 = 10; // units - real EC50 = 400; // ng/mL - int nCmt = 1; - - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; - - real rtol; - real atol; - int max_step; - - for (i in 1:nt) { - theta_data[i] = { CL, Q, V1, V2, ka, kout, effect0, EC50}; - biovar_data[i] = rep_array(1.0, nCmt); - tlag_data[i] = rep_array(0.0, nCmt); - } - - rtol = 1e-8; - atol = 1e-8; - max_step = 100000; -} - -parameters{ -} - -transformed parameters{ -} - -model{ -} - -generated quantities { - real theta[nt, nTheta]; // ODE parameters - real biovar[nt, nCmt]; - real tlag[nt, nCmt]; - - matrix[nt, nCmt + 3] x; - vector[nt] cHat; - - for (i in 1:nt) { - theta[i] = { CL, Q, V1, V2, ka, kout, effect0, EC50}; - biovar[i] = rep_array(1.0, nCmt); - tlag[i] = rep_array(0.0, nCmt); - } - - /* /\* data args *\/ */ - /* x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data, rtol, atol, max_step); cHat = col(x, 4); cHatDat1 = cHat[iObs]; */ - - /* data args */ - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data, rtol, atol, max_step); - - /* param args */ - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1], rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: param */ - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1], rtol, atol, max_step); - - /* theta: parm , biovar: data , tlag: param */ - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1], rtol, atol, max_step); - - /* theta: parm , biovar: parm , tlag: data */ - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1], rtol, atol, max_step); - - /* theta: data , biovar: data , tlag: param */ - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1], rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: data */ - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1], rtol, atol, max_step); - - /* theta: param , biovar: data , tlag: data */ - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1], rtol, atol, max_step); - - /* bdf */ - /* data args */ - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data, rtol, atol, max_step); - - /* param args */ - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1], rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: param */ - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1], rtol, atol, max_step); - - /* theta: parm , biovar: data , tlag: param */ - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1], rtol, atol, max_step); - - /* theta: parm , biovar: parm , tlag: data */ - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1], rtol, atol, max_step); - - /* theta: data , biovar: data , tlag: param */ - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1], rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: data */ - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1], rtol, atol, max_step); - - /* theta: param , biovar: data , tlag: data */ - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde2CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1], rtol, atol, max_step); - - /* mixode + 1cpt */ - /* data args */ - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data, rtol, atol, max_step); - - /* param args */ - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1], rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: param */ - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1], rtol, atol, max_step); - - /* theta: parm , biovar: data , tlag: param */ - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1], rtol, atol, max_step); - - /* theta: parm , biovar: parm , tlag: data */ - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1], rtol, atol, max_step); - - /* theta: data , biovar: data , tlag: param */ - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1], rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: data */ - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1], rtol, atol, max_step); - - /* theta: param , biovar: data , tlag: data */ - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_rk45(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1], rtol, atol, max_step); - - /* bdf */ - /* data args */ - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data, rtol, atol, max_step); - - /* param args */ - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag[1], rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: param */ - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag[1], rtol, atol, max_step); - - /* theta: parm , biovar: data , tlag: param */ - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag[1], rtol, atol, max_step); - - /* theta: parm , biovar: parm , tlag: data */ - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar , tlag_data[1], rtol, atol, max_step); - - /* theta: data , biovar: data , tlag: param */ - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar_data , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[1] , tlag[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag[1], rtol, atol, max_step); - - /* theta: data , biovar: param , tlag: data */ - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[1] , biovar , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar , tlag_data[1], rtol, atol, max_step); - - /* theta: param , biovar: data , tlag: data */ - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta[1] , biovar_data , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data, rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data[1] , tlag_data[1], rtol, atol, max_step); - x = mixOde1CptModel_bdf(twoCptIndirectModelODE, nCmt, time, amt, rate, ii, evid, cmt, addl, ss, theta , biovar_data , tlag_data[1], rtol, atol, max_step); -} - diff --git a/cmdstan/stan/src/test/test-models/good/torsten/pmx_solve_group.stan b/cmdstan/stan/src/test/test-models/good/torsten/pmx_solve_group.stan index 89031e8a7f..364d483ca4 100644 --- a/cmdstan/stan/src/test/test-models/good/torsten/pmx_solve_group.stan +++ b/cmdstan/stan/src/test/test-models/good/torsten/pmx_solve_group.stan @@ -1,10 +1,10 @@ functions { - real[] ode(real t, - real[] y, - real[] theta, - real[] x, - int[] x_int) { - real dydt[2]; + vector ode(real t, + vector y, + array[] real theta, + array[] real x, + array[] int x_int) { + vector[2] dydt; return dydt; } } @@ -13,30 +13,30 @@ data { int np; int nt; int nTheta; - int cmt[nt]; - int len[np]; - int evid[nt]; - int addl[nt]; - int ss[nt]; - real amt[nt]; - real time[nt]; - real rate[nt]; - real ii[nt]; + array[nt] int cmt; + array[np] int len; + array[nt] int evid; + array[nt] int addl; + array[nt] int ss; + array[nt] real amt; + array[nt] real time; + array[nt] real rate; + array[nt] real ii; int T; -real y0_d[2]; -real t0; -real ts[T]; -real theta_d[1]; -real x[0]; -int x_int[0]; +// real y0_d[2]; +// real t0; +// real ts[T]; +array[1] real theta_d; +// real x[0]; +// int x_int[0]; } transformed data { int nCmt = 2; - real theta_data[nt, nTheta]; - real biovar_data[nt, nCmt]; - real tlag_data[nt, nCmt]; + array[nt, nTheta] real theta_data; + array[nt, nCmt] real biovar_data; + array[nt, nCmt] real tlag_data; matrix[nCmt, nt * np] x_data; nCmt = 2; @@ -51,7 +51,7 @@ transformed data { x_data = pmx_solve_group_rk45 (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); x_data = pmx_solve_group_rk45 (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data , 1e-8, 1e-8, 1e8); x_data = pmx_solve_group_rk45 (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] , 1e-8, 1e-8, 1e8); - x_data = pmx_solve_group_rk45 (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); + x_data = pmx_solve_group_rk45 (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] , 1e-8, 1e-8, 1e8); x_data = pmx_solve_group_bdf (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); x_data = pmx_solve_group_bdf (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data , 1e-8, 1e-8, 1e8); @@ -81,7 +81,7 @@ transformed data { x_data = pmx_solve_group_rk45 (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data[0] ); x_data = pmx_solve_group_rk45 (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data ); x_data = pmx_solve_group_rk45 (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data[0] , tlag_data[0] ); - x_data = pmx_solve_group_rk45 (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); + x_data = pmx_solve_group_rk45 (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data[0] ); x_data = pmx_solve_group_bdf (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data , biovar_data , tlag_data ); x_data = pmx_solve_group_bdf (ode, nCmt, len, time, amt, rate, ii, evid, cmt, addl, ss, theta_data[0] , biovar_data , tlag_data );