# NOT RUN {
str(ped)
str(M_values)
# Calculate genotype probabilities
typed_genos <- genotype_combinations(ped)
str(typed_genos)
# }
# NOT RUN {
# Compute Delta l
MLEs <- ML_estimates(typed_genos, M_values, ncores = 4)
# Select top probes
top_probes <- MLEs[MLEs$delta.l > 10, ]
# Calculate carrier probabilities
CP <- carrier_probabilities(ped, M_values, top_probes, ncores = 2)
str(CP)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab