1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
\name{unbuild.charmatrix}
\alias{unbuild.charmatrix}
%- Also NEED an `\alias' for EACH other topic documented here.
\title{Internal: create allele list out of character matrix}
\description{
Creates a list of lists, such as required by \code{\link{alleledist}},
from the \code{charmatrix} component of an
\code{\link{alleleobject}}.
}
\usage{
unbuild.charmatrix(charmatrix,n.individuals,n.variables)
}
%- maybe also `usage' for other objects documented here.
\arguments{
\item{charmatrix}{matrix of characters in which there are two rows for
every individual corresponding to the two alleles in every locus
(column). Entries are allele codes but missing values are coded as
\code{NA}.}
\item{n.individuals}{integer. Number of individuals.}
\item{n.variables}{integer. Number of loci.}
}
\value{
A list of lists. In the "outer" list, there are
\code{n.variables} lists, one for each locus. In the "inner" list, for every
individual there is a vector of two codes (typically characters, see
\code{\link{alleleinit}}) for the two alleles in that locus.
}
\author{Christian Hennig
\email{christian.hennig@unibo.it}
\url{https://www.unibo.it/sitoweb/christian.hennig/en}}
\seealso{\code{\link{alleleinit}}, \code{\link{build.charmatrix}}}
\examples{
data(tetragonula)
tnb <-
coord2dist(coordmatrix=tetragonula.coord[1:50,],cut=50,file.format="decimal2",neighbors=TRUE)
ta <- alleleconvert(strmatrix=tetragonula[1:50,])
tai <- alleleinit(allelematrix=ta,neighborhood=tnb$nblist,distance="none")
str(unbuild.charmatrix(tai$charmatrix,50,13))
}
\keyword{manip}% at least one, from doc/KEYWORDS
|
