Question

我为由两个ol组成的混合模型编写了EM。但它显示：

“错误：“}”中出现意外的'}'。

我检查了我的代码，没有发现有关“}”的问题。

如果在我的代码中发现其他错误，将不胜感激。

我提到的论文是here。

我的代码如下：

   #prepare data
slope1 <- -.3;slope2 <- .3;slope3 <- 1.8; slope4 <- 0.5;intercept1 <- 1.5    
age <- sample(seq(-2,2,len=201), 40) 
grade <- sample(seq(-2,2,len=201), 40) 
not_smsa <- sample(seq(-2,2,len=201), 40) 
wage <- intercept1 + slope1*age +slope2*grade + slope3*not_smsa + rnorm(length(age),0,.15) 

X <- cbind(1, age , grade , not_smsa )
Y <- wage
N<- length(Y) 
mydata <- cbind.data.frame(X,Y)


library(mclust)
em <- Mclust(Y)
summary(em, parameters = T)

ans <- lm(wage ~ age + grade + not_smsa , 
          data = mydata) 
init_params <- c(coef(ans) , coef(ans))
params <-init_params
pi1 <- 0.373321
pi2 <- 0.626679 
loglik<- rep(NA, 1000)

mu1 <- X %*% params[1:4]
sigma1 <- sqrt((t((Y-X %*% params[1:4]))%*%(Y-X %*% params[1:4]))/N)

mu2 <- X %*% params[5:8]
sigma2 <- sqrt((t((Y-X %*% params[5:8]))%*%(Y-X %*% params[5:8]))/N)

loglik[1] <- 0
loglik[2] <- sum(log(pi1*dnorm(Y,mu1,sigma1)+pi2*dnorm(Y,mu2,sigma2)))

k<-2

wls <- function(X,Y,W) {
  solve(t(X) %*% W %*% X) %*% t(X) %*% W %*% Y
}

while (abs(loglik[k]-loglik[k-1]) >= 0.00001)(na.rm = T){

  # E step
  w1<-pi1*dnorm(Y,mu1,sigma1)/(pi1*dnorm(Y,mu1,sd=sigma1)+pi2*dnorm(Y,mu2,sigma2))
  w2<-pi2*dnorm(Y,mu2,sigma2)/(pi1*dnorm(Y,mu1,sd=sigma1)+pi2*dnorm(Y,mu2,sigma2))
  w1[is.na(w1)] <- 0.5
  w2[is.na(w2)] <- 0.5

  # M step
  pi1<-sum(w1)/length(Y)
  pi2<-sum(w2)/length(Y)

  w <- cbind(w1,w2)
  params[1:4] <- wls(X,Y,diag(w[,1]))
  params[5:8] <- wls(X,Y,diag(w[,2]))

  r1<-Y-X %*% params[1:4]
  r2<-Y-X %*% params[5:8]

  sigma1h <- sum(w1*r1)/sum(w1)
  sigma1h1 <- exp(sigma1h)
  sigma2h <- sum(w2*r2)/sum(w2)
  sigma2h1 <- exp(sigma2h)  
  #  loglik[k]
  loglik[k+1] <- sum(log(pi1*dnorm(Y,mu1,sigma1h1)+pi2*dnorm(Y,mu2,sigma2h1)),na.rm=T)
  k<- k+1
}

感谢您的耐心配合，我们期待您的反馈。

错误：我的EM中混合模型的“}”中出现意外的'}'

0 个答案: