## Let's assume team A has a .60 true probability of winning
## Let's assume team B has a .40 true probability of winning
## We should get an output of 0.6923
log5(.60,.40)
## The function is currently defined as
function (pA, pB, order = 0)
{
if (order) {
aux = pB
pB = pA
pA = aux
}
log5 <- (pA - pA * pB)/(pA + pB - 2 * pA * pB)
return(log5)
}
Run the code above in your browser using DataLab