fold: Fold a square matrix

In HardyWeinberg: Statistical Tests and Graphics for Hardy-Weinberg Equilibrium

Fold a square matrix

Description

The function fold sums corresponding below and above diagonal elements of a square matrix to form a triangular matrix.

Usage

fold(X, lower = TRUE)

Arguments

X	a square matrix
lower	logical. If lower=TRUE a lower triangular matrix is formed, if not an upper triangular matrix.

Details

Useful for constructing triangular matrices of genotype counts

Value

A matrix

Author(s)

Jan Graffelman [e-mail]

See Also

lower.tri,upper.tri

Examples

allelenames <- paste("A",11:13,sep="")
allele1 <- factor(c("A11","A11","A12","A12","A13","A12"),levels=allelenames)
allele2 <- factor(c("A11","A12","A12","A13","A13","A11"),levels=allelenames)
GC  <- table(allele1,allele2)
GC  <- as.matrix(unclass(GC))
GCf <- fold(GC)

HardyWeinberg documentation built on May 7, 2022, 5:05 p.m.