| LoopFeature-class | R Documentation |
LoopFeature Objects For Visualizing Features That Define Loops
The LoopFeature class is a tool for understanding and
visualizing loops (topological circles) and the features that can be
used to define and interpret them. Having found a (statistically
significant) loop, we investigate a feature by computing its mean
expression in sectors of a fixed width (usually 20 degrees) at a grid
of angles around the circle (usually multiples of 15 degrees from 0
to 360). We model these data using the function
f(\theta) = A + B\sin(\theta) + C\cos(\theta).
We then compute the "fraction of unexplained variance" by dividing the residual sum of squares from this model by the total variance of the feature. Smaller values of this statistic are more likely to identify features that vary sytematically around the circle with a single peak and a single trough.
LoopFeature(circMeans)
## S4 method for signature 'LoopFeature,missing'
plot(x, y, ...)
## S4 method for signature 'LoopFeature,character'
plot(x, y, ...)
## S4 method for signature 'LoopFeature'
image(x, ...)
circMeans |
A matrix, assumed to be the output from a call to the
|
x |
A |
y |
A character vector; the set of features to plot. |
... |
The usual set of additional graphical parameters. |
The LoopFeature function constructs and returns an object of the
LoopFeature class
The plot and image methods return (invisibly) the
LoopFeature object that was their first argument.
data:The input circMeans data matrix.
fitted:A matrix that is the same size as data;
the results of fitting a model for each feature as a linear
combination of sine and cosine.
RSS:A numeric vector; the residual sum of squares for each model.
V:A numeric vector; the total variance for each feature.
Kstat:A numeric vector, the unexplained variance statistic, RSS/V.
For the selected features listed in y (which can be missing
or "all" to plot all features), plots the fitted model as a curve
along with the observed data.
Produce a 2D image of all the features, with each one scaled to the range [0,1] and with the rows ordered by where around the loop the maximum value occurs.
Kevin R. Coombes <krc@silicovore.com>
data(CLL)
view <- cmdscale(daisydist)
circular <- angleMeans(view, ripdiag, NULL, clinical)
lf <- LoopFeature(circular)
sort(lf@Kstat)
plot(lf, "Serum.beta.2.microglobulin")
opar <- par(mai = c(0.82, 0.2, 0.82, 1.82))
image(lf, main = "Clinical Factors in CLL")
par(opar)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.