View source: R/breakIntoCNPs.chrom.R
| breakIntoCNPs.chrom | R Documentation |
This function determines which segments have to be removed and redistributes the probes/bins from a removed segment into the adjacent segments for one specific chromosome at the time.
breakIntoCNPs.chrom( segTable, chrom, startPos, endPos, startProbe, endProbe, eventIndex, cnpTable, cnpChrom, cnpStart, cnpEnd, cnpIndex, minCover, indexVals )
segTable |
a |
chrom |
a |
startPos |
a |
endPos |
a |
startProbe |
a |
endProbe |
a |
eventIndex |
a |
cnpTable |
a |
cnpChrom |
a |
cnpStart |
a |
cnpEnd |
a |
cnpIndex |
a |
minCover |
A single |
indexVals |
a |
a matrix of numeric with 3 columns:
the updated start position (integer) of each segment in internal
units. This column has the same name than the startProbe
parameter.
the updated end position (integer) of each segment in internal
units. This column has the same name than the endProbe parameter.
the masked result: 0 when the segment is retained,
1 when the segment
is removed. This column is called "toremove".
Alexander Krasnitz, Guoli Sun
# Table containing information about segments in the chromosome
segTable <- data.frame(ID=c(rep("WZ1", 5)),
start=c(1, 16, 23, 31, 38),
end=c(15, 22, 30, 37, 50),
seg.median=c(0.03779, -0.51546, 0.2431, -0.2259, 0.0372),
chrom=c(rep(1, 5)),
chrom.pos.start=c(932544, 16004440, 38093655, 78729960, 103416416),
chrom.pos.end=c(15844870, 37974708, 78619856, 103394039, 142176090),
eventIndex=c(0, 0, 1, 0, -1))
# Table with copy number information
cnptable <- matrix(c(rep(1, 3), c(932544, 38093688, 123416446),
c(11844870, 48619856, 182176090), rep(1,3)), ncol=4, byrow=FALSE,
dimnames=list(NULL, c("chrom", "start", "end", "cnpindex")))
# This function redistributes the bins/probes from a removed segment into
# the adjacent segments
CNprep:::breakIntoCNPs.chrom(segTable=segTable, chrom="chrom",
startPos="chrom.pos.start", endPos="chrom.pos.end",
startProbe="start", endProbe="end",
eventIndex="eventIndex",
cnpTable=cnptable, cnpChrom="chrom",
cnpStart="start", cnpEnd="end", cnpIndex="cnpindex",
minCover=0.005, indexVals=c(-1, 1))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.