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