Export mvd.rgen

[BlackEdder]

mvd.rgen is not exported. It can therefore not be used outside the package.

Related to that the function has some errors when using with a gmm fit, because it tries to access fit$k and x is not defined:

The below fixed it for me:

      s <- sample(fit$K, n, replace = T)
      x <- matrix(0, nrow = n, ncol = ncol(fit$centers))
      for (i in 1:n) {
        x[i,] <- mvtnorm::rmvnorm(1, fit$centers[s[i],], fit$covariances[[s[i]]])
      }