Discounts a mass function.
disc(x,y)
a mass function
degree of reliability
mass function
Smets, P. (2000), Data Fusion in the Transferable Belief Model, Proceedings of the Third International Conference on Information Fusion
# NOT RUN {
# state space
stateSpace <- c("a", "b", "c")
# mass function
m <- mass(list("a"=0.1, "a/b/c"=0.9), stateSpace)
# source is only 80% reliable
mDisc <- disc(m, 0.8)
# }
Run the code above in your browser using DataLab