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.