Displaying 1 result from an estimated 1 matches for "modwrapper".
Did you mean:
podwrapper
2009 Jul 20
1
Argument problem in function wrapper
...x00<-which.min(abs(F-(a0/2+y00)));
derivativeAtc0= (F[x00+1]-F[x00-1])/2
b0=-4*x00*derivativeAtc0/a0
w<-c(rep(0,skipCycles), rep(1,length(F)-skipCycles))
x=1:length(F);
modelArg=F ~ y0+D*x+a/(1+(x/x0)^b)
dataArg=data.frame(F,x)
startArg=list(y0 = y00, a=a0, x0=x00, b=b0, D=0)
weightsArg=w
F.modWrapper <- wrappernls(modelArg,dataArg,startArg,weightsArg)
F.mod <-
nls(formula=modelArg,data=dataArg,start=startArg,weights=weightsArg,
control=nls.control(maxiter = 500, tol = 1e-05, minFactor = 1/102400))
*Output in R:*
> F.mod
Nonlinear regression model
model: F ~ y0 + D * x + a/(1 + (x/x0)...