# NOT RUN {
# NPI lower and upper probabilities for the event that at least one
# of the next future observations from groups S is greater than all
# future observations from the other groups.
data(FourSources)
# Convert the dataframe to a list of groups
data2<-split(FourSources$value,FourSources$source)
select.include.best(data2,S=c(1,3))
# }
Run the code above in your browser using DataLab