## load data to test
data(dataTest)
## threshold of absS matrix
myLABELS <- thresholdAbsSPath(dataTest)$partitionList
## compute loglikelihood
logLikePath <- lapply(myLABELS, function(x) computeLoglikeFromPartition(x,dataTest))
Run the code above in your browser using DataLab