### Case 1
x = halfSibPed(nch1 = 2, type = "maternal")
sFLB(x, unknown = 1:3, affected = 4:6, carriers = 4:6,
noncarriers = NULL, penetrances = c(0.1, 0.5, 0.5))
### Ratajska et al. (2023), Family B
y = nuclearPed(5, sex = c(2,1,1,1,1)) |>
addDaughter(parents = 3, verbose = FALSE) |>
relabel("asPlot")
sFLB(y, unknown = NULL, affected = c(1,4,5,8), carriers = c(1,4,8),
noncarriers = 6:7, penetrances = c(0.01, 0.9, 0.9))
Run the code above in your browser using DataLab