Displaying 3 results from an estimated 3 matches for "fitfun".
Did you mean:
fitfunc
2007 Jul 24
1
Fwd: Re: Fitting exponential curve to data points
...1,b1=1))
> lines(dat[,1],fitted(out),col=2)
> out <- nls(Count~b0+b1*Year+b2*Year^2,data=dat, #polynomial
> start=list(b0=0,b1=1,b2=1))
> lines(dat[,1],fitted(out),col=3)
>
> ## Optim
> f <- function(.pars,.dat,.fun) sum((.dat[,2]-.fun(.pars,.dat[,1]))^2)
> fitFun <- function(b,x) cbind(1,x,x^2)%*%b
> expFun <- function(b,x) b[1]*exp(b[2]*x)
>
> plot(dat)
> out <- optim(c(0,1,1),f,.dat=dat,.fun=fitFun)
> lines(dat[,1],fitFun(out$par,dat[,1]),col=2)
> out <- optim(c(1,1),f,.dat=dat,.fun=expFun)
> lines(dat[,1],expFun(out$par,...
2011 Mar 26
0
rebuilding vignettes in 2.13-0-alpha fails if name of source dir is not package name
...= c("ca", "pca", "random"), smoother =
smoothSpline, complexity, vary = FALSE, maxComp,
finalCV = FALSE, axis = 1, rank = FALSE, stretch = 2,
maxit = 10, trace = FALSE, thresh = 0.001, plotit =
FALSE, fitFUN = c("princurve", "pcurve"), latent =
FALSE, ...)
Docs: function(X, method = c("ca", "pca", "random"), smoother =
smoothSpline, complexity, vary = FALSE, maxComp,
finalCV = FALSE, axis = 1, rank =...
2007 Jul 24
2
Fitting exponential curve to data points
Hi folks,
I've looked through the list archives and online resources, but I
haven't really found an answer to this -- it's pretty basic, but I'm
(very much) not a statistician, and I just want to check that my
solution is statistically sound.
Basically, I have a data file containing two columns of data, call it data.tsv:
year count
1999 3
2000 5
2001 9
2002 30
2003 62
2004 154