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
|
\name{getIntersectList}
\alias{getIntersectList}
\title{Enter the information for a set intersection display}
\description{Enter the information for a set intersection display.}
\usage{
getIntersectList(nelem,xnames=NULL,sep="-")
}
\arguments{
\item{nelem}{The number of sets for which the intersections will be displayed.}
\item{xnames}{The labels for the set intersections. The function creates names
from combinations of the first \samp{nelem} capital letters if none are
given.}
\item{sep}{The separator to use when calling \samp{paste}.}
}
\details{
\samp{getIntersectList} allows the user to manually enter the counts of
set intersections rather than build this information from a matrix of data.
It is probably most useful for producing an intersection diagram when the
counts of the intersections are already known, or when the values are
proportions rather than counts as in the example.
}
\value{A list of the counts of elements in the set intersections.}
\author{Jim Lemon}
\seealso{\link{makeIntersectList}, \link{intersectDiagram}}
\examples{
# this example is from a haplotype mapping problem submitted by Mao Jianfeng
\dontrun{
hapIntList<-
getIntersectList(3,xnames=c("hap.Pd","hap.Pt","hap.Py"))
# enter the data as follows:
# Number of elements in hap.Pd - 1: 27.586
# Number of elements in hap.Pt - 1: 20.689
# Number of elements in hap.Py - 1: 31.035
# Number of elements in hap.Pd-hap.Pt - 1: 10.345
# Number of elements in hap.Pd-hap.Py - 1: 10.345
# Number of elements in hap.Pt-hap.Py - 1: 0
# Number of elements in hap.Pd-hap.Pt-hap.Py - 1: 0
# Total number of elements - 1: 100
}
hapIntList<-structure(list(structure(c(27.586, 20.689, 31.035),
.Names = c("hap.Pd","hap.Pt","hap.Py")),
structure(c(10.345, 10.345, 0),
.Names = c("hap.Pd-hap.Pt","hap.Pd-hap.Py","hap.Pt-hap.Py")),
structure(0, .Names = "hap.Pd-hap.Pt-hap.Py"),100),
class = "intersectList")
intersectDiagram(hapIntList)
}
\keyword{misc}
|
