The R Project SVN R

Rev

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

Rev 76413 Rev 76414
Line 303... Line 303...
303 
## given in a list (with names):
 303 
## given in a list (with names):
304 
b <- coef(musc.1)
 304 
b <- coef(musc.1)
305 
musc.2 <- nls(Length ~ a[Strip] + b[Strip]*exp(-Conc/th), muscle,
 305 
musc.2 <- nls(Length ~ a[Strip] + b[Strip]*exp(-Conc/th), muscle,
306 
              start = list(a = rep(b[2], 21), b = rep(b[3], 21), th = b[1]))
 306 
              start = list(a = rep(b[2], 21), b = rep(b[3], 21), th = b[1]))
307 
## IGNORE_RDIFF_BEGIN
 307 
## IGNORE_RDIFF_BEGIN
308 
summary(musc.2)}
 308 
summary(musc.2)
309 
## IGNORE_RDIFF_END
 309 
## IGNORE_RDIFF_END
- 
 
 310 
}
310 
\dontshow{options(od)}
 311 
\dontshow{options(od)}
311 
}
 312 
}
312 
\keyword{nonlinear}
 313 
\keyword{nonlinear}
313 
\keyword{regression}
 314 
\keyword{regression}
314 
\keyword{models}
 315 
\keyword{models}