# NOT RUN {
# Frequency list of 15 standard STR markers
freqList = NorwegianFrequencies[1:15]
# Number of bootstrap simulations (increase!)
N = 5
# Bootstrap estimates for kappa of full siblings
boot1 = kappaBootstrap(c(0.25, .5, .25), N = N, freqList = freqList)
boot1
# Mean deviation
mean(boot1$dist)
# Same, but with the 9 identity coefficients.
delta = c(0, 0, 0, 0, 0, 0, .25, .5, .25)
boot2 = deltaBootstrap(delta, N = N, freqList = freqList)
# Mean deviation
mean(boot2$dist)
# }
Run the code above in your browser using DataLab