# Generate simulation data with 100 samples per categories
simData<-SimNonNormalDist(nInv=100)
# Performing ordering infernce from simData
resultObj<-EDOIF(simData$Values,simData$Group)
# Get a list of ggplot object of mean confidence intervals
ggplotList<-plotMeanCIs(obj=resultObj)
# Plot mean confidence intervals
plot(ggplotList$pMeanCI)
Run the code above in your browser using DataLab