genecounting | R Documentation |
Gene counting for haplotype analysis
genecounting(data, weight = NULL, loci = NULL, control = gc.control())
data |
genotype table. |
weight |
a column of frequency weights. |
loci |
an array containing number of alleles at each locus. |
control |
is a function with the following arguments:
|
Gene counting for haplotype analysis with missing data.
The returned value is a list containing:
h haplotype frequency estimates under linkage disequilibrium (LD).
h0 haplotype frequency estimates under linkage equilibrium (no LD).
prob genotype probability estimates.
l0 log-likelihood under linkage equilibrium.
l1 log-likelihood under linkage disequilibrium.
hapid unique haplotype identifier (defunct, see gc.em
).
npusr number of parameters according user-given alleles.
npdat number of parameters according to observed.
htrtable design matrix for haplotype trend regression (defunct, see gc.em
).
iter number of iterations used in gene counting.
converge a flag indicating convergence status of gene counting.
di0 haplotype diversity under no LD, defined as 1-\sum (h_0^2)
.
di1 haplotype diversity under LD, defined as 1-\sum (h^2))
.
resid residuals in terms of frequency weights = o - e.
adapted from GENECOUNTING.
Jing Hua Zhao
zhao02gap
\insertRefzhao03gap
\insertRefzhao04gap
gc.em
, LDkl
## Not run:
require(gap.datasets)
# HLA data
data(hla)
hla.gc <- genecounting(hla[,3:8])
summary(hla.gc)
hla.gc$l0
hla.gc$l1
# ALDH2 data
data(aldh2)
control <- gc.control(handle.miss=1,assignment="ALDH2.out")
aldh2.gc <- genecounting(aldh2[,3:6],control=control)
summary(aldh2.gc)
aldh2.gc$l0
aldh2.gc$l1
# Chromosome X data
# assuming allelic data have been extracted in columns 3-13
# and column 3 is sex
filespec <- system.file("tests/genecounting/mao.dat")
mao2 <- read.table(filespec)
dat <- mao2[,3:13]
loci <- c(12,9,6,5,3)
contr <- gc.control(xdata=TRUE,handle.miss=1)
mao.gc <- genecounting(dat,loci=loci,control=contr)
mao.gc$npusr
mao.gc$npdat
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.