powered by
checkGmm(obj)
# set a gaussian mixture model gaussmod <- list() gaussmod$w <- c(0.5, 0.5) gaussmod$mean <- list(c(-3,0), c(3,0)) gaussmod$cov <- list(diag(2), diag(2)) checkGmm(gaussmod)
Run the code above in your browser using DataLab