# NOT RUN {
ref = nuclearPed(father = "fa", mother = "mo", child = "MP")
ref = setMarkers(ref, marker(ref, alleles = 1:5))
# Alternatives for genotyping
sel = list("fa", c("fa", "mo"))
# Simulate power for each selection
simData = MPPsims(ref, selections = sel, nProfiles = 3, lrSims = 5,
thresholdIP = 2, seed = 123, numCores = 1)
# Power plot 1: EP vs IP
powerPlot(simData, type = 1)
powerPlot(simData, type = 1, minorpoints = FALSE, hline = 0.8)
# }
# NOT RUN {
# Change shape, and modify legend order
powerPlot(simData[3:1], type = 1, shape = c("ci", "sq", "di"))
# Zoom in, and add threshold lines
powerPlot(simData, type = 1, xlim = c(0.2, 1), ylim = c(0.5, 1),
hline = 0.8, vline = 0.8)
# Power plot 3: Expected number of exclusions vs E[log LR]
powerPlot(simData, type = 3)
# With horizontal/vertical lines
powerPlot(simData, type = 3, hline = log10(2), vline = 1)
# Plot 4: Illustrating the general inequality ELR > 1/(1-EP)
powerPlot(simData, type = 4)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab