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
cliqFitRun the code above in your browser using DataLab