assign_mode.R

#' Estimates Posterior Mode Cluster Assignment
#'
#' @export
#' @param x ndp object
#' @param ... optional arguments
#' @return vector of cluster assignments
#'
assign_mode <- function(x,...)
	UseMethod("assign_mode")


#' @export
#'
assign_mode.ndp <- function(x,...){

	error <- get_square_error(x)
	return(x$cluster_assignment[which.min(error),])

}

#' Calculates Error Distribution under square loss function
#'
#' @export
#' @param x list object  with n x K cluster assignment matrix entry and n x n pairwise probability matrix
#' @return vector of error corresponding to specific iteration's cluster configuration
#'
get_square_error <- function(x)
	UseMethod("get_square_error")


#' @export
#'
get_square_error.default <- function(x){

	error <- square_error(x$cluster_assignment,x$pmat)

	return(error)
}