The R Project SVN R

Rev

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

Rev 59039 Rev 61160
Line 35... Line 35...
35 
\examples{
 35 
\examples{
36 
PurTrt <- Puromycin[ Puromycin$state == "treated", ]
 36 
PurTrt <- Puromycin[ Puromycin$state == "treated", ]
37 
SSmicmen(PurTrt$conc, 200, 0.05)  # response only
 37 
SSmicmen(PurTrt$conc, 200, 0.05)  # response only
38 
Vm <- 200; K <- 0.05
 38 
Vm <- 200; K <- 0.05
39 
SSmicmen(PurTrt$conc, Vm, K)      # response and gradient
 39 
SSmicmen(PurTrt$conc, Vm, K)      # response and gradient
40 
print(getInitial(rate ~ SSmicmen(conc, Vm, K), data = PurTrt), digits=3)
 40 
print(getInitial(rate ~ SSmicmen(conc, Vm, K), data = PurTrt), digits = 3)
41 
## Initial values are in fact the converged values
 41 
## Initial values are in fact the converged values
42 
fm1 <- nls(rate ~ SSmicmen(conc, Vm, K), data = PurTrt)
 42 
fm1 <- nls(rate ~ SSmicmen(conc, Vm, K), data = PurTrt)
43 
summary(fm1)
 43 
summary(fm1)
44 
## Alternative call using the subset argument
 44 
## Alternative call using the subset argument
45 
fm2 <- nls(rate ~ SSmicmen(conc, Vm, K), data = Puromycin,
 45 
fm2 <- nls(rate ~ SSmicmen(conc, Vm, K), data = Puromycin,