test(){ deriv(Aa = - Ka * Aa) deriv(A1 = Ka * Aa - Ke * A1) deriv(E = Kin * (1 - Imax * C ^ gam / (C ^ gam + IC50 ^ gam)) - Kout * E) dosepoint(Aa) C = A1 / V sequence{E = Kin / Kout} error(EEps = 1) observe(EObs = E + EEps) fixef(Ka(freeze) = c(, 8.8, )) fixef(V(freeze) = c(, 3.05, )) fixef(Ke(freeze) = c(, 0.605, )) fixef(Kin = c(, 60, )) fixef(Kout = c(, 1, )) fixef(Imax = c(, 0.67, )) fixef(IC50 = c(, 1, )) fixef(gam = c(, 1, )) }