## continue the example from ?roc
example(roc)
## calculate the Bayes factors of analogue and no-analogue
## (uses observed probabilities of analogue/no-analogue
swap.bayes <- bayesF(swap.roc)
swap.bayes
## plot the probability of analogue
plot(swap.bayes)
## calculate the Bayes factors of analogue and no-analogue
## with prior probabilities c(0.5, 0.05)
swap.bayes2 <- bayesF(swap.roc, prior = c(0.5, 0.05))
swap.bayes
## plot the probability of analogue
plot(swap.bayes2)
Run the code above in your browser using DataLab