Displaying 1 result from an estimated 1 matches for "coeffval".
Did you mean:
coeffa
2017 Aug 24
1
Problem in optimization of Gaussian Mixture model
...param, opt = rep(NA, 2)){
if (any(!sapply(opt, is.na))) {
i = !sapply(opt, is.na)
# Fix non-NA values
param[i] <- opt[i]
}
xval= param[1]
seg <- param[2]
sum_prob=0
val=0
l=3
meanval=c(506.8644, 672.8448, 829.902)
sigmaval=c(61.02859, 9.149168, 74.84682)
coeffval(0.1241933, 0.6329082, 0.2428986)
for(n in 1 :l)
{
mu=meanval[seg,n]
sg=sigmaval[seg,n]
cval=coeffval[seg,n]
val=cval*(dnorm(xval,mu,sg))
#print(paste0("The dnorm value for x is.: ", val))
sum_prob=sum_prob+val
}
sum_prob
}
The output is not cor...