data <- forensicolors::simRef()
conditioned <- conditionedProp(data, 1, 1, 1, 0.01, 0.01, 0.01)
unconditioned <- forensicolors::refProp(data)
likelihoods <- forensicolors::compute_LRs(conditioned, unconditioned)
plotLR(likelihoods)
Run the code above in your browser using DataLab