Simulate Pedigree, genetic merits and phenotypes with random mating followed by (non)random selection with different patterns in males and females.
simulatePed(
F0size,
f.rate = 1,
m.rate = 1,
mort.rate = 0,
littersize = 1,
ngen,
overlap.s = 0,
overlap.d = 0,
fullsib = TRUE,
parentprogeny = TRUE,
Va0,
Ve,
fsel = "R",
msel = "R"
)
: Even number of founder animals. No mortality and selection in this generation.
: Proportion of females selected as dams, default = 1.
: Proportion of males (<= f.rate
) selected as sires, default = 1.
: Mortality rate per generation, after the availability of phenotype (e.g., birth weight, weaning weight)
and before the age of maturity (i.e., before mating), default = 0. Maximum mort.rate
= 0.5.
: Litter size, default = 1.
: Number of generations to simulate.
: Number of generation overlaps for sires, default = 0 for no generation overlap.
: Number of generation overlaps for dams, default = 0 for no generation overlap.
: If FALSE
, avoid fullsib matings, default = TRUE
.
Further information provided in Details.
: If FALSE
, avoid parent-progeny matings, default = TRUE
.
Further information provided in Details.
: Additive genetic variance in the base generation (i.e., F0).
: Environment (plus residual) variance, set constant across generations.
: If "R"
(default), random selection on females;
if "P"
, selection on phenotypes or true breeding values if Ve
= 0;
if "PA"
, selection on true parent averages; redundant if f.rate = 1
.
"-P"
and "-PA"
work in opposite direction of "P"
and "PA"
, respectively.
: If "R"
(default), random selection on males;
if "P"
, selection on phenotypes or true breeding values if Ve
= 0;
if "PA"
, selection on true parent averages; redundant if m.rate = 1
.
"-P"
and "-PA"
work in opposite direction of "P"
and "PA"
, respectively.
ped : The output pedigree data.frame
. Further information provided in Details.
fullsib = FALSE
: Avoid fullsib matings in each generation by replacing the male mate (SIRE)
with a random SIRE among the selected sires, until no fullsib mating is left.
If due to a small population bottleneck there is any fullsib mating remained, it would be reported.
parentprogeny = FALSE
: Avoid parent-progeny matings in each generation by replacing the male mate (SIRE)
with a random SIRE among the selected sires, until no parent-progeny mating is left.
If due to a small population bottleneck there is any parent-progeny mating remained, it would be reported.
The output pedigree data.frame
(ped
) has 9 columns: ID, SIRE, DAM, SEX,
GEN (generation number starting with 0 for the base generation), PA (parent average),
MS (Mendelian Sampling), E (environment and residuals), and P (phenotype).
# NOT RUN {
ped = simulatePed(
F0size = 100,
f.rate = 0.8,
m.rate = 0.5,
mort.rate = 0.05,
littersize = 2,
ngen = 4,
overlap.s = 1,
overlap.d = 0,
fullsib = FALSE,
parentprogeny = FALSE,
Va0 = 9,
Ve = 36,
fsel = "P",
msel = "PA"
)
# }
Run the code above in your browser using DataLab