1\name{p.profileTraces}
2\encoding{latin1}
3\alias{p.profileTraces}
4\title{Plot a profile.nls Object With Profile Traces}
5\description{
6  Displays a series of plots of the profile t function and the likelihood
7  profile traces for the parameters in a nonlinear regression model that
8  has been fitted with \code{\link{nls}} and profiled with
9  \code{\link{profile.nls}}.
10}
11\usage{
12p.profileTraces(x, cex = 1,
13                subtitle = paste("t-Profiles and traces of ",
14                       deparse(attr(x,"summary")$formula)))
15}
16\arguments{
17  \item{x}{an object of class \code{"profile.nls"}, typically resulting from
18    \code{profile(\link[stats]{nls}(.))}, see
19    \code{\link[stats]{profile.nls}}.}
20  \item{cex}{character expansion, see \code{\link{par}(cex =)}.}
21  \item{subtitle}{a subtitle to set for the plot.  The default now
22    includes the \code{\link{nls}()} formula used.}
23}
24%- \details{
25% .........
26%- }
27\author{Andreas Ruckstuhl, \R port by Isabelle Fl�ckiger and Marcel Wolbers}
28\note{the \pkg{stats}-internal \code{stats:::plot.profile.nls} plot
29  method just does \dQuote{the diagonals}.
30}
31\seealso{\code{\link{profile}}, and \code{\link{nls}} (which has
32  unexported \code{profile} and \code{stats:::plot.profile.nls} methods).
33}
34\examples{
35require(stats)
36data(Puromycin)
37Treat <- Puromycin[Puromycin$state == "treated", ]
38fm <- nls(rate ~ T1*conc/(T2+conc), data=Treat,
39          start = list(T1=207,T2=0.06))
40(pr <- profile(fm)) # quite a few things..
41op <- par(mfcol=1:2)
42plot(pr) # -> 2 'standard' plots
43par(op)
44## ours:
45p.profileTraces(pr)
46}
47\keyword{hplot}
48\keyword{nonlinear}
49