fitModel(formula, data = parent.frame(), start = list(), ...)model(object, ...)
## S3 method for class 'nlsfunction':
model(object, ...)
## S3 method for class 'nlsfunction':
summary(object, ...)
## S3 method for class 'nlsfunction':
coef(object, ...)
start
to nls
.
If and empty list, a simple starting point is used (thus
avoiding the usual warning message).nls
linearModel
, nls
f <- fitModel(temp ~ A+B*exp(-k*time), data=CoolingWater, start=list(A=50,B=50,k=1/20))
f(time=50)
coef(f)
summary(f)
model(f)
Run the code above in your browser using DataLab