Displaying 1 result from an estimated 1 matches for "evaluatemodel".
2010 Nov 08
1
try (nls stops unexpectedly because of chol2inv error
...t.1-1)*summary.nls.1$cov.scaled +
(omit.2-1)*summary.nls.2$cov.scaled +
(omit.L-1)*summary.nls.L$cov.scaled)/(sum(omit.1,omit.2,omit.L)-L);
for(j in 1:L)
{
Y = numeric(N_i);
X = createDomain(Xval,N_i); noise = rnorm(N_i, mean=0,sd=sqrt(varY) );
if(j==1)
{
## location #1 is different
Y = noise + evaluateModel(X,b,D[p1],t);
beta = b;
delta = D[p1];
tau = t;
} else {
Y = noise + evaluateModel(X,b,d,t);
}
print(paste(j, " location NLS of ",L)); flush.console();
fData = as.data.frame(cbind(Y,X)); colnames(fData)=c("Y","X"); unique =
doUnique(fData);
initialValues = list(b=3,d=...