R/wrappers.R

In kasparmartens/mixtureModels:

component <- function(D, X = NULL){
  if(is.null(X)){
    comp <- Component$new(as.integer(D))
  } else{
    if(!is.matrix(X)) stop("X must be a matrix!")
    if(ncol(X) != D) stop("number of columns in X does not match your chosen dimensionality!")
    comp <- Component$new(as.integer(D), X)
  }
  comp
}

mixture <- function(X, z, type = "DPM"){
  if(!is.matrix(X)) stop("X must be a matrix!")
  if(!is.vector(z)) stop("z must be a vector!")
  if(length(z) != nrow(X)) stop("number of data points in X and z does not match!")
  if(!(type %in% c("DPM", "MFM"))) stop("Type must be either DPM or MFM")
  Mixture$new(X, z, type == "DPM", type == "MFM")
}