R/loglikcube.R

In CUB: A Class of Mixture Models for Ordinal Data

#' @title Log-likelihood function of a CUBE model without covariates
#' @aliases loglikcube
#' @description Compute the log-likelihood function of a CUBE model without covariates fitting 
#' the given absolute frequency distribution.
#' @usage loglikcube(m,freq,pai,csi,phi)
#' @keywords internal
#' @param m Number of ordinal categories
#' @param freq Vector of the absolute frequency distribution
#' @param pai Uncertainty parameter
#' @param csi Feeling parameter
#' @param phi Overdispersion parameter


loglikcube <-
function(m,freq,pai,csi,phi){t(freq)%*%log(probcube(m,pai,csi,phi))}