Table 6 The probability that LR is less than 1/RMNE is calculated exactly based on the R package DNAprofiles

From: Exclusion probabilities and likelihood ratios with applications to mixtures

nMarker <− 14
RMNE <− 0.8856 \(\widehat {~}\) nMarkers
LR <− c(0.7575758, 0.9943182, 1.1837121, 2.7777778, 6.25)
fx <− c(0.2304, 0.1344, 0.4800, 0.1296, 0.0256)
dist <− vector(“list” ,nMarkers )
for(i in 1:nMarkers )
dist [[i]] <− list (x = LR, fx = fx )
pair <− dist.product . pair(dist)
cdfP <− dist.pair . cdf (pair )
cdfP(1/RMNE ) # 0.265497