Large `nclass` taking forever

[ZhaofengWu]

When running the same code as in allinit.r, but with the only change from k <- 10 to k <- 300 or some other large value, the init.EM function takes forever.