testData <- simBVCen()
#simulate bivariate interval censored data
cliqMat <- MLEcens::reduc(testData, cm = TRUE)$cm
#computes the cliqMat associated with data
cliqFit <- optCliq(cliqMat)
#optimizes the component weights for clique matrix
cliqFit
Run the code above in your browser using DataLab