data(EMresults)
#### COMPUTE OPTIMAL STATE PATH USING VITERBI ####
optimalPath <- viterbiClonalCN(data, convergeParams)
#### FORMAT RESULTS ####
results <- outputTitanResults(data, convergeParams, optimalPath,
filename = NULL, posteriorProbs = FALSE,
subcloneProfiles = TRUE)
#### REMOVE EMPTY CLONAL CLUSTERS ####
corrResults <- removeEmptyClusters(convergeParams, results, proportionThreshold = 0.001,
proportionThresholdClonal = 0.3)
convergeParams <- corrResults$convergeParams
results <- corrResults$results
Run the code above in your browser using DataLab