sim.cross(map, model=NULL, n.ind=100, type=c("f2", "bc", "4way"),
error.prob=0, missing.prob=0, partial.missing.prob=0,
keep.qtlgeno=TRUE, keep.errorind=TRUE,
map.function=c("haldane","kosambi","c-f"))
f2
),
a backcross (bc
), or a phase-known 4-way cross (4way
).error.prob > 0
, the
identity of genotyping errors will be included in the output.cross
. See read.cross
for
details.
If keep.qtlgeno
is TRUE, the cross object will contain a
component qtlgeno
which is a matrix containing the QTL
genotypes (with complete data and no errors), coded as in the genotype
data.
If keep.errorind
is TRUE and errors were simulated, each
component of geno
will each contain a matrix errors
,
with 1's indicating simulated genotyping errors.X
, it is assumed to be the X
chromosome, and is assumed to be segregating in the cross. Thus, in
an intercross, it is segregating like a backcross chromosome. In a
4-way cross, a second phenotype, sex
, will be generated.QTLs are assumed to act additively, and the residual phenotypic variation is assumed to be normally distributed with variance 1.
For a backcross, the effect of a QTL is a single number corresponding to half the difference between the homozygote and the heterozygote.
For an intercross, the effect of a QTL is a pair of numbers, ($a,d$), where $a$ is the additive effect (half the difference between the homozygotes) and $d$ is the dominance deviation (the difference between the heterozygote and the midpoint between the homozygotes).
For a four-way cross, the effect of a QTL is a set of three numbers, ($a,b,c$), where, in the case of one QTL, the mean phenotype, conditional on the QTL genotyping being AC, BC, AD or BD, is $a$, $b$, $c$ or 0, respectively.
sim.map
, read.cross
,
fake.f2
, fake.bc
fake.4way
# simulate a genetic map
map <- sim.map()
# simulate 250 intercross individuals with 2 QTLs
fake <- sim.cross(map, type="f2", n.ind=250,
model = rbind(c(1,45,1,1),c(5,20,0.5,-0.5)))
Run the code above in your browser using DataLab