The R Project SVN R

Rev

Rev 61160 | Rev 64657 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61160 Rev 61168
Line 51... Line 51...
51 
 
 51 
 
52 
\seealso{
 52 
\seealso{
53 
  \code{\link{nls}}.
 53 
  \code{\link{nls}}.
54 
  Each of the following are \code{"selfStart"} models (with examples)
 54 
  Each of the following are \code{"selfStart"} models (with examples)
55 
\code{\link{SSasymp}}, \code{\link{SSasympOff}}, \code{\link{SSasympOrig}},
 55 
\code{\link{SSasymp}}, \code{\link{SSasympOff}}, \code{\link{SSasympOrig}},
56 
\code{\link{SSbiexp}}, \code{\link{SSfol}},\code{\link{SSfpl}},
 56 
\code{\link{SSbiexp}}, \code{\link{SSfol}}, \code{\link{SSfpl}},
57 
\code{\link{SSgompertz}}, \code{\link{SSlogis}}, \code{\link{SSmicmen}},
 57 
\code{\link{SSgompertz}}, \code{\link{SSlogis}}, \code{\link{SSmicmen}},
58 
\code{\link{SSweibull}}
 58 
\code{\link{SSweibull}}
59 
 
 59 
 
60 
}
 60 
}
61 
\examples{
 61 
\examples{
Line 93... Line 93...
93 
## Explore the self-starting models already available in R's  "stats":
 93 
## Explore the self-starting models already available in R's  "stats":
94 
pos.st <- which("package:stats" == search())
 94 
pos.st <- which("package:stats" == search())
95 
mSS <- apropos("^SS..", where = TRUE, ignore.case = FALSE)
 95 
mSS <- apropos("^SS..", where = TRUE, ignore.case = FALSE)
96 
(mSS <- unname(mSS[names(mSS) == pos.st]))
 96 
(mSS <- unname(mSS[names(mSS) == pos.st]))
97 
fSS <- sapply(mSS, get, pos = pos.st, mode = "function")
 97 
fSS <- sapply(mSS, get, pos = pos.st, mode = "function")
98 
all(sapply(fSS, inherits, "selfStart"))# -> TRUE
 98 
all(sapply(fSS, inherits, "selfStart"))  # -> TRUE
99 
 
 99 
 
100 
## Show the argument list of each self-starting function:
 100 
## Show the argument list of each self-starting function:
101 
str(fSS, give.attr = FALSE)
 101 
str(fSS, give.attr = FALSE)
102 
}
 102 
}
103 
\keyword{models}
 103 
\keyword{models}