# NOT RUN {
# state space
stateSpace <- c("a", "b", "c")
# mass function
m <- mass(list("a"=0.1, "b"=0.1 ,
"c"=0.4, "a/b/c"=0.4), stateSpace)
# credal set
c <- credal(c(0.1, 0.1, 0.1),
c(0.8, 0.8, 0.8), stateSpace)
# calculate lower bounds
lower(m, c("a", "a/b"))
lower(c, c("a", "a/b"))
# lower bounds on singletons
lower(m)
# }
Run the code above in your browser using DataLab