Version: 0.2-6

It is well known that the dosage level of markers in autopolyploids and allopolyploids can be characterised by their observed segregation ratios. On the other hand, contrary to methods employed in several studies, segregation ratios are not a good indicator of polyploid type (Qu and Hancock 2002).

The polySegratio package provides standard approaches to assess marker dosage in autopolyploids although the functions could equally well be applied to allopolyploids with specified expected segregation ratios. In addition, simulated sets of markers may be generated with specified dosages, ploidy and levels of oversidpersion.

To use the library, you need to attach it with

library(polySegratio)

Expected segregation ratios

Haldane (1930) outlined the derivation of the expected numbers and ratios of offspring for various parental configurations of autopolyploids. Expected gametic series for polyploids of various sizes were produced, along with expected ratios of gametic series for crosses and selfing and the equilibrium distribution under random mating. Haldane (1930) provides expected gametic series when one parent is nulliplex for polyploids up to order 16 (heccaidecaploid).

Table 1: The gametic segregation in an autooctaploid of a heterozygous cross \((A^sa^{8-s}, s=1\ldots7)\) with a nulliplex \((a^8)\) assuming bivalent pairing and no double reduction. The ratio is of dominants to recessives and \(\omega_k\) is the proportion of dominants.
Heterozygous	Gametes					Segregation Ratio
Parent	\(A^4\)	\(A^3a\)	\(A^2a^2\)	\(Aa^3\)	\(a^4\)	\(A^sa^{8-s}\):	\(a^8\)	\(\omega_k\)
\(Aa^7\)				1	1	1:	1	0.500
\(A^2a^6\)			3	8	3	11:	3	0.786
\(A^3a^5\)		1	6	6	1	13:	1	0.929
\(A^4a^4\)	1	16	36	16	1	69:	1	0.986
\(A^5a^3\)	1	6	6	1
\(A^6a^2\)	3	8	3
\(A^7a\)	1	1

For an autooctaploid with bivalent pairing and in the absence of double reduction [Double reduction: if separation for any locus is equational the two chromatids from one chromosome may be present together in one interphase nucleus but joined to separate centromeres allowing them to enter the same gamete. Sister chromatids in the same gamete, reducing the genetic content of a gamete twice, instead of once. Normally, two of the four chromosomes end up together in a gamete, reducing the genetic content in half. With double reduction gametes, the two chromosomes in the gamete are the same, at least at some loci; i.e., they are sister chromatids, and genetic content is reduced to 1/4 when compared to the parental plant. See Mather (1936)] with \(A\) being the dominant allele and \(a\) the recessive, then the expected gametic series formed are outlined in Table 1. Employing the notation that \(A^s\) represents \(s\) copies of allele \(A\), then if a heterozygous parent \(A^ra^{8-r}\) is crossed with a recessive nulliplex (\(a^8\)) octaploid then the results of crossing can be calculated by symbolic manipulation. For instance, if a parent with a single dose marker \(Aa^7\) is crossed with a nulliplex parent \(a^8\) then \(Aa^7 \times a^8\) yields \((1.Aa^3 + 1.a^4) \times (a^4)\) or zygotes \((1.Aa^7 + 1.a^8)\) with ratios \(1.Aa^7 : 1.a^8\).

Although published previously in slightly different forms, the general formula of Ripol et al. (1999) is employed for \(p(k)\) or the expected segregation proportion given dosage \(k\) which is

\[ p(k| m, x) = 1 - {{m-k \choose mx} \over {m \choose mx}} , k=0 \ldots m/2(\#eq:ripol1) \]

where \(m\) is the ploidy level or number of homologous chromosomes and the monoploid number \(x\) is the number of chromosomes in a basic set. Note that for diploids \(m=2\), tetraploids \(m=4\) , octaploids then \(m=8\) and so on.

To obtain such theoretical segregation proportions or probabilities using expected.segRatio is straightforward by specifying the ploidy level either numerically or by name. The function expected.segRatio employs Equations @ref(eq:ripol1) and @ref(eq:homog) to compute expected segregation proportions. For instance

## obtain expected segregation ratios 
## default is one nulliplex parent so type.parents = "heterogeneous"

print(unlist(expected.segRatio(2)))
#:        ratio.SD    ploidy.level     ploidy.name    type.parents 
#:           "0.5"             "2"       "Diploid" "heterogeneous"
print(unlist(expected.segRatio("Tetraploid")))
#:            ratio.SD            ratio.DD        ploidy.level 
#:               "0.5" "0.833333333333333"                 "4" 
#:         ploidy.name        type.parents 
#:        "Tetraploid"     "heterogeneous"
print(expected.segRatio("Octa")$ratio)
#:     SD     DD     TD     QD 
#: 0.5000 0.7857 0.9286 0.9857

In the case where, an AFLP band is present in both parents but not in all offspring, there must be less than four copies of the dominant allele in both parents. For instance, crossing the two genetically similar autooctoploid lines \(Aa^7\) results in 1 nulliplex in 4 since \((1.Aa^3 + 1.a^4)^2\) is simply \((1.A^2a^6 + 2.Aa^7 + 1.a^8)\). For alternate autooctoploid parental configurations result in segregation proportions of around 0.9 or above and would apparently therefore be indistinguishable via segregation ratios alone. Similarly to Equation @ref(eq:ripol1) we deduce that if both parents contain at least one copy of the dominant marker than a general equation for then for the dosage\(j\)in the first parent and dosage \(k\) in the second parent then the expected segregation proportion \(p(j,k)\) is

\[ p(j, k | m, x) = 1 - { {m-k \choose mx} {m-j \choose mx} \over {m \choose mx}^2 }, j,k=0 \ldots m/2(\#eq:homog) \]

where \(m\) and \(x\) are defined in Equation @ref(eq:ripol1), noting that neither parent is nulliplex. Such segregation ratios may be computed using `{expected.segRatio} as follows:

## obtain expected segregation ratios with type.parents="homozygous"

print(unlist(expected.segRatio("tetra",type="homoz")))
#:         ratio.SDxSD         ratio.SDxDD         ratio.DDxDD 
#:              "0.75" "0.916666666666667" "0.972222222222222" 
#:        ploidy.level         ploidy.name        type.parents 
#:                 "4"        "Tetraploid"        "homozygous"
print(expected.segRatio("Octa",type="homoz")$ratio)
#:  SDxSD  SDxDD  DDxDD  DDxTD  TDxTD  TDxQD  QDxQD 
#: 0.7500 0.8929 0.9643 0.9929 0.9969 0.9990 0.9998

Note that Equations @ref(eq:ripol1) and @ref(eq:homog) are defined for \(m\) even but that a warning is issued and results still calculated if \(m\) is odd. As an example

## obtain expected segregation ratios with odd ploidy level
a <- expected.segRatio(9)
#: Warning in choose(pl - k, n.doses): 'k' (4.50) must be integer,
#: rounded to 4
#: Warning in choose(pl, n.doses): 'k' (4.50) must be integer, rounded
#: to 4
#: Warning in choose(pl - k, n.doses): 'k' (4.50) must be integer,
#: rounded to 4
#: Warning in choose(pl, n.doses): 'k' (4.50) must be integer, rounded
#: to 4
#: Warning in choose(pl - k, n.doses): 'k' (4.50) must be integer,
#: rounded to 4
#: Warning in choose(pl, n.doses): 'k' (4.50) must be integer, rounded
#: to 4
#: Warning in choose(pl - k, n.doses): 'k' (4.50) must be integer,
#: rounded to 4
#: Warning in choose(pl, n.doses): 'k' (4.50) must be integer, rounded
#: to 4
#: Warning: ploidy level not even - results may be unexpected
print(a$ratio)
#:     SD     DD     TD     QD 
#: 0.4444 0.7222 0.8810 0.9603

Simulating a set of markers

Functions sim.autoMarkers and sim.autoCross may be used to simulate marker data for a collection of markers where either one of the parents is nulliplex or where both parents contain at least one dose of a marker. The data are only simulated to produce appropriate segregation ratios but other genetic parameters such as recombination, degree of preferential pairing or a genetic map are not considered. The proportions in each marker dosage need to be specified.

sim.autoMarkers may be used to simulate dominant markers from an autopolyploid cross given the ploidy level, specified parental marker alleles, the expected segregation ratios and the proportions in each dosage marker class. The ploidy level may be chosen from tetraploid to heccaidecaploid and the segregation ratios may be specified explicitly or generated automatically.

sim.autoCross is a wrapper to sim.autoMarkers which is used to generate markers for parents with markers that are 10, 01 or 11. The proportions of markers for each of these three parental types must be specified.

Both functions return S3 class objects (class simAutoCross and class simAutoMarkers) which have associated print and plot methods.

For instance, to generate and plot the segregation proportions for 200 markers for 100 progeny from a tetraploid cross where one of the parents is nulliplex and there are 70% single dose markers and 30% dose markers then use

mark.sim4 <- sim.autoMarkers(4, dose.proportion=c(0.7,0.3), 
                             n.markers=200, n.individuals = 200)
print(mark.sim4)
#: Autopolyploid dominant markers generated at Thu May 28 10:48:44 2026 
#: with call:
#: sim.autoMarkers(ploidy.level = 4, dose.proportion = c(0.7, 0.3), 
#:     n.markers = 200, n.individuals = 200)
#: 
#: Ploidy level is: 4 ( Tetraploid )
#: Parents were set as heterogeneous for the markers
#: Theoretical segregation proportions:
#:            ratio.SD            ratio.DD        ploidy.level 
#:               "0.5" "0.833333333333333"                 "4" 
#:         ploidy.name        type.parents 
#:        "Tetraploid"     "heterogeneous" 
#: 
#: Proportions in each dosage class:
#:  SD  DD 
#: 0.7 0.3 
#: No. of markers generated from multinomial distribution:
#:    No.markers
#: SD        137
#: DD         63
#: 
#: Data were generated for 200 individuals with 200 markers
#: A subset is:
#:      X.1 X.2 X.3 X.4 X.5 X.6 X.7 X.8 X.9 X.10 r   n   ratio dose
#: M.1  1   0   0   0   0   0   1   0   1   1    92  200 0.46  SD  
#: M.2  1   0   1   1   0   0   1   1   1   1    111 200 0.555 SD  
#: M.3  1   0   0   0   1   1   0   0   0   0    98  200 0.49  SD  
#: M.4  1   0   0   0   0   0   1   1   1   0    106 200 0.53  SD  
#: M.5  1   1   1   1   1   0   1   1   1   0    105 200 0.525 SD  
#: M.6  1   1   1   1   1   0   0   0   0   1    113 200 0.565 SD  
#: M.7  0   0   0   1   1   1   0   1   1   1    98  200 0.49  SD  
#: M.8  0   0   1   1   0   0   1   0   1   1    104 200 0.52  SD  
#: M.9  1   1   0   0   0   1   1   1   1   1    101 200 0.505 SD  
#: M.10 0   0   1   0   0   1   0   1   1   0    110 200 0.55  SD

Segregation ratios from simulated marker data for 200 markers for a autotetraploid cross with 100 offspring

Figure @ref(fig:sim1) shows a histogram of segregation proportions for a tetraploid cross produced with plot(mark.sim4). Other plots, may be produced. For instance, the number of missing values is useful when looking at real data to determine if some markers are not well measured (See Figure @ref(fig:sim2)).

Often in molecular marker studies, a small percentage of markers may be missing or misclassified. The functions addMissing and addMisclass allow marker data to be modified accordingly. The rate may be specified either as a proportion of missing at random or a proportion of columns and rows with specified proportions of missings or misclassified. Not that if markers are randomly misclassified then the expected segregations ratios are still the same and so we may not expect to see much difference to perfectly classified markers.

Function addMissing adds missing data at random to objects of class autoMarker or autoCross. Function addMisclass misclassifies marker data in objects of class autoMarker or autoCross at a specified rate. Parental marker data may also be misclassified. An example might be

miss.sim4 <- addMisclass(mark.sim4, misclass = 0.1)
miss.sim4 <- addMissing(miss.sim4, na.proportion = 0.2)
print(miss.sim4, col=c(1:6))
#: Autopolyploid dominant markers generated at Thu May 28 10:48:44 2026 
#: with call:
#: sim.autoMarkers(ploidy.level = 4, dose.proportion = c(0.7, 0.3), 
#:     n.markers = 200, n.individuals = 200)
#: 
#: Ploidy level is: 4 ( Tetraploid )
#: Parents were set as heterogeneous for the markers
#: Theoretical segregation proportions:
#:            ratio.SD            ratio.DD        ploidy.level 
#:               "0.5" "0.833333333333333"                 "4" 
#:         ploidy.name        type.parents 
#:        "Tetraploid"     "heterogeneous" 
#: 
#: Proportions in each dosage class:
#:  SD  DD 
#: 0.7 0.3 
#: No. of markers generated from multinomial distribution:
#:    No.markers
#: SD        137
#: DD         63
#: 
#: Data were generated for 200 individuals with 200 markers
#: A subset is:
#:      X.1  X.2  X.3  X.4  X.5 X.6  X.7 X.8  X.9  X.10 r  n  
#: M.1  1    0    0    0    1   0    1   0    1    1    88 173
#: M.2  <NA> 0    1    1    0   0    1   1    <NA> 1    84 156
#: M.3  1    0    0    0    1   0    0   <NA> 0    0    81 160
#: M.4  1    <NA> 0    0    0   0    1   1    1    <NA> 80 157
#: M.5  <NA> 1    1    <NA> 1   0    1   1    1    1    87 163
#: M.6  1    1    1    1    1   <NA> 0   <NA> 0    <NA> 94 162
#: M.7  0    0    0    1    1   1    0   <NA> 1    0    80 172
#: M.8  1    0    1    1    0   0    1   0    1    1    73 165
#: M.9  <NA> 1    <NA> 0    0   1    1   1    1    1    78 159
#: M.10 0    0    1    0    1   0    0   <NA> 1    0    85 167
#:      ratio             dose
#: M.1  0.508670520231214 SD  
#: M.2  0.538461538461538 SD  
#: M.3  0.50625           SD  
#: M.4  0.509554140127389 SD  
#: M.5  0.533742331288344 SD  
#: M.6  0.580246913580247 SD  
#: M.7  0.465116279069767 SD  
#: M.8  0.442424242424242 SD  
#: M.9  0.490566037735849 SD  
#: M.10 0.508982035928144 SD  
#: Missing data generated for 20 % markers at random

Histograms of the number of markers labelled 1, numbers of missing values per marker and segregation ratios

Note that Figure @ref(fig:sim2) is produced with plot(miss.sim4, type = "all").

Overdispersion

Since markers are correlated and may be subject to different types of measurement errors, then the segregation ratios may follow an overdispersed Binomial distribution. Such markers may be simulated with sim.autoMarkers by setting the parameter overdispersion to TRUE. The amount of overdispersion or extra–binomial variation may be specified by setting the shape1 parameter. Larger values imply less overdispersion. Typically, the R command would be like {sim.autoMarkers(4,c(0.8,0.2), overdisp=TRUE, shape1=20).

Overdispersed marker data are simulated from the Beta–Binomial distribution where the Binomial proportion \(p\) is generated from a Beta distribution. Note that if \(p\) is generated from a \(\beta(a,b)\) distribution, then \(E(p)=a/(a+b)\) and Var\((p)=ab/((a+b)^2(a+b+1))\). Thus constraining \(E(p)\) to be the appropriate segregation proportion and setting the first shape parameter \(a\) implies that \(b = a(1-p)/p\). Tetraploid marker data generated for a range of shape1 or \(a\) values is shown in Figure @ref(fig:overdisp1).

Histograms of the number of dominant markers simulated for 500 overdispersed markers from 200 autotetraploids. Data were generated from the Beta–Binomial distribution with a range of shape parameters. Overdispersion increases as shape1 decreases.

Standard approaches for assessing marker dosage

The most widely used test for assessing marker dosage is the standard \(\chi^2\) test. Following Mather (1951), this test is often employed to compare the observed segregation ratio against its expected value. More recently, Ripol et al. (1999) proposed that the observed segregation proportion be compared to the appropriate Binomial confidence interval given the sample size and the expected segregation proportion.

Both tests may be carried out by means of the function test.segRatio. Note that if the tests reveal that a marker may be more than one dosage then it is not allocated a marker dosage.

\(\chi^2\) tests

The default method of assessing marker dosage in test.segRatio is the \(\chi^2\) test. The function requires that the segregation proportions are given in the form of object of S3 class segRatio. These are automatically produced for simulated data created with functions sim.autoMarkers and sim.autoCross and may be calculated from observed marker data either manually or by applying segregationRatios to a matrix of observed marker data.

For instance, to calculate \(\chi^2\) tests, and allocate dosage for an autooctoploid then

## simulated data
a <- sim.autoMarkers(ploidy = 8, c(0.7,0.2,0.09,0.01), n.markers=200, 
                     n.individuals=100)
print(a)
#: Autopolyploid dominant markers generated at Thu May 28 10:48:45 2026 
#: with call:
#: sim.autoMarkers(ploidy.level = 8, dose.proportion = c(0.7, 0.2, 
#:     0.09, 0.01), n.markers = 200, n.individuals = 100)
#: 
#: Ploidy level is: 8 ( Octaploid )
#: Parents were set as heterogeneous for the markers
#: Theoretical segregation proportions:
#:            ratio.SD            ratio.DD            ratio.TD 
#:               "0.5" "0.785714285714286" "0.928571428571429" 
#:            ratio.QD        ploidy.level         ploidy.name 
#: "0.985714285714286"                 "8"         "Octaploid" 
#:        type.parents 
#:     "heterogeneous" 
#: 
#: Proportions in each dosage class:
#:   SD   DD   TD   QD 
#: 0.70 0.20 0.09 0.01 
#: No. of markers generated from multinomial distribution:
#:    No.markers
#: SD        144
#: DD         39
#: TD         15
#: QD          2
#: 
#: Data were generated for 100 individuals with 200 markers
#: A subset is:
#:      X.1 X.2 X.3 X.4 X.5 X.6 X.7 X.8 X.9 X.10 r  n   ratio dose
#: M.1  0   0   0   0   1   1   1   1   1   0    46 100 0.46  SD  
#: M.2  0   1   0   1   1   0   0   1   0   0    52 100 0.52  SD  
#: M.3  1   1   0   0   1   0   0   1   0   0    46 100 0.46  SD  
#: M.4  0   1   0   1   1   1   0   0   0   1    52 100 0.52  SD  
#: M.5  1   0   0   0   0   1   1   0   1   1    58 100 0.58  SD  
#: M.6  0   1   1   1   1   0   1   0   0   0    50 100 0.5   SD  
#: M.7  0   0   0   1   1   0   0   0   0   0    48 100 0.48  SD  
#: M.8  0   1   0   0   1   1   1   0   0   0    51 100 0.51  SD  
#: M.9  0   1   0   0   1   1   1   1   0   0    45 100 0.45  SD  
#: M.10 1   1   0   0   1   0   0   1   1   1    49 100 0.49  SD

Note that a is an object of S3 class simAutoMarkers and that the segregation ratios may be obtained as the list component seg.ratios. Since a is simulated we can also extract the true dosage obtain the number of correctly classified markers. The \(\chi^2\) test produced more than 50 warnings. Use warnings() to see the first 50.

## summarise chi-squared test vs true
ac <- test.segRatio(a$seg.ratios, ploidy=8, method="chi.squared")
print(ac)
#: Segregation ratio test:
#: Method: chi.squared at the 0.05 level
#: Expected segregation ratios:
#:            ratio.SD            ratio.DD            ratio.TD 
#:               "0.5" "0.785714285714286" "0.928571428571429" 
#:            ratio.QD        ploidy.level         ploidy.name 
#: "0.985714285714286"                 "8"         "Octaploid" 
#:        type.parents 
#:     "heterogeneous" 
#: Proportion of markers classified at 0.05 level: 0.945 
#: Classified: 189 , not classified: 11 
#: Markers doubly classified: 2 
#:       SD DD TD QD
#: M.184  0  0  1  1
#: M.186  0  0  1  1
#: Number in each marker dosage class (classified once):
#:  SD  DD  TD  QD 
#: 136  36  15   2 
#: Dosage of first 10 markers (where dosage unique):
#:  M.1  M.2  M.3  M.4  M.5  M.6  M.7  M.8  M.9 M.10 
#:    1    1    1    1    1    1    1    1    1    1 
#: Call: test.segRatio(seg.ratio = a$seg.ratios, ploidy.level = 8, method = "chi.squared")
print(addmargins(table(a$true.doses$dosage, ac$dosage, exclude=NULL)))
#:      
#:         1   2   3   4 <NA> Sum
#:   1   136   0   0   0    8 144
#:   2     0  36   2   0    1  39
#:   3     0   0  13   0    2  15
#:   4     0   0   0   2    0   2
#:   Sum 136  36  15   2   11 200

Note that for segregation ratios near to one the \(\chi^2\) approximation may not hold and so R will produce a warning.

Binomial confidence intervals

The Binomial confidence interval approach of Ripol et al. (1999) is obtained by setting the method parameter to binomial. The \(\alpha\) level may be set in either method by setting the parameter alpha. For instance,

## summarise binomial CI vs true
ab <- test.segRatio(a$seg.ratios, ploidy=8, method="bin", alpha=0.01)
print(ab)
#: Segregation ratio test:
#: Method: binomial at the 0.01 level
#: Expected segregation ratios:
#:            ratio.SD            ratio.DD            ratio.TD 
#:               "0.5" "0.785714285714286" "0.928571428571429" 
#:            ratio.QD        ploidy.level         ploidy.name 
#: "0.985714285714286"                 "8"         "Octaploid" 
#:        type.parents 
#:     "heterogeneous" 
#: Proportion of markers classified at 0.01 level: 0.955 
#: Classified: 191 , not classified: 9 
#: Markers doubly classified: 9 
#:       SD DD TD QD
#: M.169  0  1  1  0
#: M.175  0  1  1  0
#: M.184  0  0  1  1
#: M.185  0  0  1  1
#: M.186  0  0  1  1
#: M.189  0  0  1  1
#: M.191  0  0  1  1
#: M.193  0  0  1  1
#: M.199  0  0  1  1
#: Number in each marker dosage class (classified once):
#:  SD  DD  TD  QD 
#: 144  36  10   1 
#: Dosage of first 10 markers (where dosage unique):
#:  M.1  M.2  M.3  M.4  M.5  M.6  M.7  M.8  M.9 M.10 
#:    1    1    1    1    1    1    1    1    1    1 
#: Call: test.segRatio(seg.ratio = a$seg.ratios, ploidy.level = 8, method = "bin", 
#:     alpha = 0.01)
print(addmargins(table(a$true.doses$dosage, ab$dosage, exclude=NULL)))
#:      
#:         1   2   3   4 <NA> Sum
#:   1   144   0   0   0    0 144
#:   2     0  36   1   0    2  39
#:   3     0   0   9   0    6  15
#:   4     0   0   0   1    1   2
#:   Sum 144  36  10   1    9 200

Utility functions

Several utility functions are included for use with real or simulated data.

When marker data are stored in spreadsheets repetitive parts of marker names may be left blank or columns containing parts of names may need to be combined. To aid the process of constructing unique marker labels, autoFill automatically fills out blanks of a vector with the preceding label and makeLabel generates labels from two columns where blanks in first column are replaced by preceding non-blank label.

## imaginary data frame representing ceq marker names read in from
## spreadsheet
x <- data.frame( col1 = c("agc","","","","gct5","","ccc","",""),
                col2 = c(1,3,4,5,1,2,2,4,6))
print(x)
#:   col1 col2
#: 1  agc    1
#: 2         3
#: 3         4
#: 4         5
#: 5 gct5    1
#: 6         2
#: 7  ccc    2
#: 8         4
#: 9         6
print(makeLabel(x))
#: [1] "agc1"  "agc3"  "agc4"  "agc5"  "gct51" "gct52" "ccc2"  "ccc4" 
#: [9] "ccc6"
print(cbind(x,lab=makeLabel(x, sep=".")))
#:   col1 col2    lab
#: 1  agc    1  agc.1
#: 2         3  agc.3
#: 3         4  agc.4
#: 4         5  agc.5
#: 5 gct5    1 gct5.1
#: 6         2 gct5.2
#: 7  ccc    2  ccc.2
#: 8         4  ccc.4
#: 9         6  ccc.6

Function divide.autoMarkers will split up a set of markers depending on the parental alleles. This is useful when extracting markers to be used in constructing a marker map for one parent say or in obtaining those markers present in both parents but segregating in the offspring.

p2 <- sim.autoCross(4,
dose.proportion=list(p01=c(0.7,0.3),p10=c(0.7,0.3),
                     p11=c(0.6,0.2,0.2)))
print(p2, row=c(1:5))
#: Autopolyploid dominant markers for crosses generated at Thu May 28 10:48:45 2026 
#: with call:
#: sim.autoCross(ploidy.level = 4, dose.proportion = list(p01 = c(0.7, 
#:     0.3), p10 = c(0.7, 0.3), p11 = c(0.6, 0.2, 0.2)))
#: 
#: Ploidy level is: 4 ( Tetraploid )
#: The proportion of markers of each parental type were
#: p10 p01 p11 
#: 0.4 0.4 0.2 
#: Theoretical segregation proportions:
#: p10:
#:            ratio.SD            ratio.DD        ploidy.level 
#:               "0.5" "0.833333333333333"                 "4" 
#:         ploidy.name        type.parents 
#:        "Tetraploid"     "heterogeneous" 
#: p01:
#:            ratio.SD            ratio.DD        ploidy.level 
#:               "0.5" "0.833333333333333"                 "4" 
#:         ploidy.name        type.parents 
#:        "Tetraploid"     "heterogeneous" 
#: p11:
#:         ratio.SDxSD         ratio.SDxDD         ratio.DDxDD 
#:              "0.75" "0.916666666666667" "0.972222222222222" 
#:        ploidy.level         ploidy.name        type.parents 
#:                 "4"        "Tetraploid"        "homozygous" 
#: 
#: Proportions in each dosage class:
#: p10:
#:  SD  DD 
#: 0.7 0.3 
#: p01:
#:  SD  DD 
#: 0.7 0.3 
#: p11:
#: SDxSD SDxDD DDxDD 
#:   0.6   0.2   0.2 
#: No. of markers generated from multinomial distribution:
#: p10:
#:    No.markers
#: SD        149
#: DD         61
#: p01:
#:    No.markers
#: SD        130
#: DD         53
#: p11:
#:       No.markers
#: SDxSD         64
#: SDxDD         28
#: DDxDD         15
#: 
#: Overall: data were generated for 200 individuals with 500 markers
#: A subset is:
#:      P.1 P.2 X.1 X.2 X.3 X.4 X.5 X.6 X.7 X.8 r   n   ratio dose
#: M.1  1   0   1   1   1   1   1   1   0   1   106 200 0.53  SD  
#: M.2  1   0   1   1   0   0   0   0   1   0   98  200 0.49  SD  
#: M.3  1   0   1   0   1   1   0   1   1   1   107 200 0.535 SD  
#: M.4  1   0   1   0   0   0   1   0   0   1   104 200 0.52  SD  
#: M.5  1   0   1   0   0   1   1   1   1   0   111 200 0.555 SD  
#: M.6  1   0   0   1   1   0   1   1   0   0   110 200 0.55  SD  
#: M.7  1   0   1   1   0   1   0   0   1   0   99  200 0.495 SD  
#: M.8  1   0   0   1   1   1   0   1   1   1   100 200 0.5   SD  
#: M.9  1   0   0   0   0   0   0   0   0   0   90  200 0.45  SD  
#: M.10 1   0   1   1   1   0   1   0   1   0   104 200 0.52  SD

ss <- divide.autoMarkers(p2$markers)

print(ss, row=c(1:5))
#: Markers split for p2$markers 
#: 
#: **** data set: Parent with 1 is P.1 and 0 is P.2 
#: Dimension of marker data: 210 200 
#: Data:
#:      X.1 X.2 X.3 X.4 X.5 X.6 X.7 X.8 X.9 X.10   r   n ratio
#: M.1    1   1   1   1   1   1   0   1   0    0 106 200 0.530
#: M.2    1   1   0   0   0   0   1   0   1    1  98 200 0.490
#: M.3    1   0   1   1   0   1   1   1   1    0 107 200 0.535
#: M.4    1   0   0   0   1   0   0   1   0    0 104 200 0.520
#: M.5    1   0   0   1   1   1   1   0   1    0 111 200 0.555
#: M.6    0   1   1   0   1   1   0   0   1    1 110 200 0.550
#: M.7    1   1   0   1   0   0   1   0   0    1  99 200 0.495
#: M.8    0   1   1   1   0   1   1   1   1    1 100 200 0.500
#: M.9    0   0   0   0   0   0   0   0   0    1  90 200 0.450
#: M.10   1   1   1   0   1   0   1   0   0    1 104 200 0.520
#: No. markers
#:     0     1 
#: 17580 24420 
#: **** data set: Parent with 0 is P.1 and 1 is P.2 
#: Dimension of marker data: 183 200 
#: Data:
#:       X.1 X.2 X.3 X.4 X.5 X.6 X.7 X.8 X.9 X.10   r   n ratio
#: M.211   0   0   0   0   1   1   1   1   0    0  89 200 0.445
#: M.212   1   0   0   1   0   0   1   0   0    0  98 200 0.490
#: M.213   1   1   0   0   0   1   0   0   0    0  98 200 0.490
#: M.214   0   1   0   1   1   0   1   0   1    0 102 200 0.510
#: M.215   1   1   1   1   1   0   1   0   1    0 113 200 0.565
#: M.216   0   1   0   1   0   0   1   1   1    1 106 200 0.530
#: M.217   0   1   0   0   0   1   0   1   1    0  93 200 0.465
#: M.218   1   1   1   1   1   0   1   0   1    1  99 200 0.495
#: M.219   0   1   1   0   0   1   0   0   1    0 110 200 0.550
#: M.220   1   1   1   1   1   1   1   1   1    0  97 200 0.485
#: No. markers
#:     0     1 
#: 14285 22315 
#: **** data set: Parents both  with 1 - P.1 & P.2 
#: Dimension of marker data: 107 200 
#: Data:
#:       X.1 X.2 X.3 X.4 X.5 X.6 X.7 X.8 X.9 X.10   r   n ratio
#: M.394   1   0   1   0   1   1   1   1   1    1 150 200 0.750
#: M.395   1   1   1   0   1   1   1   1   1    1 158 200 0.790
#: M.396   1   1   1   0   1   1   1   1   0    0 152 200 0.760
#: M.397   1   1   1   0   1   1   0   0   0    1 150 200 0.750
#: M.398   1   0   1   0   1   0   1   1   0    0 146 200 0.730
#: M.399   0   0   1   1   1   1   1   0   0    1 152 200 0.760
#: M.400   0   1   1   0   1   1   1   0   1    1 148 200 0.740
#: M.401   1   1   1   1   1   1   1   1   1    1 150 200 0.750
#: M.402   1   0   0   0   1   0   1   0   1    1 145 200 0.725
#: M.403   1   0   1   0   1   1   1   1   1    1 151 200 0.755
#: No. markers
#:     0     1 
#:  3755 17645 
#: Call:
#: divide.autoMarkers(markers = p2$markers)

Acknowledgments

Karen Aitken, given her experience in tetraploids and sugarcane marker maps, has provided many valuable insights into marker dosage in autopolyploids. David Lovell, Andrew George and Phil Jackson provided useful comments and discussions.

References

Haldane, J B S. 1930. “Theoretical Genetics of Autopolyploids.” Jornal of Genetics 22: 359–72.

Mather, K. 1936. “Segregation and Linkage in Autotetraploids.” Journal of Genetics 32: 287–314.

Mather, K. 1951. The Measurement of Linkage in Heredity. Methuen.

Qu, L, and JF Hancock. 2002. “Pitfalls of Genetic Analysis Using a Doubled–Haploid Backcrossed to Its Parent.” Theoretical and Applied Genetics 105 (2-3): 392–96.

Ripol, M I, G A Churchill, J A da Silva, and M Sorrells. 1999. “Statistical aspects of genetic mapping in autopolyploids.” Gene 235 (1-2): 31–41.

polySegratio: An R library for autopolyploid segregation analysis