Displaying 3 results from an estimated 3 matches for "obtenue".
2010 Jan 13
1
Problem fitting a non-linear regression model with nls
...as 0.000488281 est devenu inf?rieur ?
'minFactor' de 0.000976562\n"
- "Error in nls(formule, data = cbind.data.frame(x, y), start =
list(miny = min(y), : \n gradient singulier\n"
- "Error in numericDeriv(form[[3]], names(ind), env) : \n Valeur
manquante ou infinie obtenue au cours du calcul du mod?le\n")
- "Error in nlsModel(formula, mf, start, wts) : \n singular gradient
matrix at initial parameter estimates\n"
So it seems that I reach a local extremum each time. I know that most
of the problem comes from the choice of the initial values of the...
2011 Aug 16
0
exponential with decreasing
...t;-Regress$MSI7
plot(y ~ x)
fm <- nls(y ~ f(x,a,b), data =Regress, start = c(a=1, b=1))
co <- coef(fm)
curve(f(x, a=co[1], b=co[2]), add = TRUE)
But in the line 7, it blocks with the following message:
Erreur dans numericDeriv(form[[3L]], names(ind), env) :
Valeur manquante ou infinie obtenue au cours du calcul du mod?le
De plus : Messages d'avis :
1: In min(x) : aucun argument trouv? pour min ; Inf est renvoy?
2: In max(x) : aucun argument pour max ; -Inf est renvoy?
- Please where is the problem?
- What I can do to obtain R^2?
- Is the method to verify homoscedasticity and normal...
2020 Oct 09
1
Aide pour finaliser ce code
...}
}
}
}
# D?terminations des valeurs propres de sigma epsilon
pa=SqrtMatrice0(GSigma)
mq= pa %*% GGamma %*% pa
u=Re(eigen(mq)$values)
# d?termination de d?gr? de libert? et valeur c not? va
dl=(sum(u)^2)/(sum(u^2))
va=(sum(u^2))/(sum(u))
pc=1-pchisq(tr1/va, df= dl)
# Test de la valeur obtenue
if (pc>m1) d1=0 else d1=1
if (pc>m2) d2=0 else d2=1
if (pc>m3) d3=0 else d3=1
l1=l1+d1
l2=l2+d2
l3=l3+d3
}
K=K+1
MV[K,1]=n
MV[K,2]=l1/nbrefoissim
MV[K,3]=l2/nbrefoissim
MV[K,4]=l3/nbrefoissim
}
[[alternative HTML version deleted]]