# Simulate data
TRANS_s <- matrix(c(0.9, 0.1, 0.3, 0.7), nrow=2, byrow=TRUE)
alpha_s <- c(2, 4)
beta_s <- c(1, 0.25)
Total <- 1000
x <- nbh_gen(TRANS_s, alpha_s, beta_s, Total);
N <- 2
cnt <- x$count
label <- x$label
Total <- length(cnt)
# dummy initialization
wght0 <- c(0.5,0.5)
alpha0 <- c(1, 20)
beta0 <- c(1, 1)
NIT_MAX <- 50
TOL <- 1e-100
# initialize param with nbm
nbm <- nbm_em(cnt, alpha0, beta0, wght0, NIT_MAX, TOL)
map.accuracy <- length(which(max.col(nbm$postprob) == label))/Total
print(map.accuracy)
Run the code above in your browser using DataLab