n = 300
C = 2
Dimen = 2
Beta.true.matrix = matrix(c(-3, 3, 3, -3), Dimen, C)
PI.true = c(0.5, 0.5)
x = runif(n)
X = cbind(1, x)
Group.ID = Rlab::rbern(n, prob = 0.5)
Error = rnorm(n, 0, 1)
n1 = sum(Group.ID)
n2 = n - n1
y = rep(0, n)
err = rep(0, n)
for(i in 1:n){
if(Group.ID[i] == 1){
err[i] = Error[i]
y[i] = X[i, ] %*% Beta.true.matrix[, 1] + err[i]
} else {
err[i] = 0.5 * Error[i]
y[i] = X[i, ] %*% Beta.true.matrix[, 2] + err[i]
}
}
Result.kdeem.lse = kdeem.lse(x, y)
Result.kdeem.h = kdeem.h(x, y, 2, Result.kdeem.lse, maxiter = 200)
Result.kdeem = kdeem(x, y, 2, Result.kdeem.lse, maxiter = 200)
Run the code above in your browser using DataLab