Displaying 1 result from an estimated 1 matches for "fm1fld".
Did you mean:
fm1f
2005 Sep 26
2
nls and na/Nan/Inf error
...lamda) {
if (Vr < 0) Vr <- 0
Vr + (Vm - Vr)/((1+(alpha*x)^lamda)^(1-1/lamda))
}
vanGen <- deriv(~Vr + (Vm - Vr)/((1+(alpha*x)^lamda)^(1-1/lamda)),
c("Vr", "Vm", "alpha", "lamda"), function(x, Vr, Vm, alpha, lamda) {} )/
the call in R
/> fm1fld.nls <- nls(Moisture ~ vanGen(Suction, Vr,Vm,alpha,lamda),
+ data=fldgd, start=c(Vr=0.229, Vm=0.433, alpha=0.2, lamda=1.5))
/and the data:/
/* Suction Moisture
1 0 0.433
2 1 0.421
3 4 0.400
4 10 0.379
5 20 0.366
6 30 0.362
7 40...