R/maxZ.R

In zoevanhavre/Zmix: Overfitted Gaussian mixture models with an unknown number of components.

#' Processing output 
#'
#' inner function.
#' @param x: vector of factor values  (here, allocations)
#' @keywords postprocessing
#' @export
#' @examples
#' #NA

			maxZ<-function (x) {
			as.numeric(names(which.max(table( x ))))	
			}