ience</em>, <b>85</b>, 947&ndash;954.
</p>


<h3>Examples</h3>

<pre><code class='language-R'>
## Fitting model with constraint on one parameter 
met.ar.m1 &lt;- drm(gain~dose, product, data = methionine, 
fct = AR.3(), pmodels = list(~1, ~factor(product), ~factor(product)), 
upperl = c(Inf, Inf, 1700, Inf, Inf)) 

plot(met.ar.m1, xlim=c(0,0.3), ylim=c(1450, 1800))
abline(h=1700, lty=1)

summary(met.ar.m1)

</code></pre>

</main>

</div>
</body></html>
