data( model )
#default
support <- getExpInterval( model = model, bayes = TRUE, plot = TRUE )
support
#custom interval (based, e.g. on visual inspection of posterior class probability
# or evaluation of FDR using the estimateFDRF function)
support <- getExpInterval( model = model, leftProb = 0.2, rightProb = 0.7, plot = TRUE )
support
Run the code above in your browser using DataLab