plotSelectionProb | R Documentation |
This function plots the selection probabilities of predictors (for example the selected motifs), optionally multiplied with either +1 or -1 to give a sense of both the strength and the directionality of the associated effects. The directionality is estimated from the sign of the correlation coefficient between each predictor and the response vector.
plotSelectionProb(
se,
directional = TRUE,
selProbMin = metadata(se)$stabsel.params.cutoff,
selProbMinPlot = 0.4,
showSelProbMin = TRUE,
col = c("cadetblue", "grey", "red"),
method = c("pearson", "kendall", "spearman"),
ylimext = 0.25,
legend = "topright",
legend.cex = 1,
...
)
se |
The |
directional |
A logical scalar. If |
selProbMin |
A numerical scalar in [0,1]. Predictors with a selection
probability greater than |
selProbMinPlot |
A numerical scalar in [0,1] less than
|
showSelProbMin |
A logical scalar. If |
col |
A color vector giving the three colors used for predictors with
selection probability greater than |
method |
A character scalar with the correlation method to use in the
calculation of predictor-response marginal correlations. One of "pearson",
"kendall" or "spearman" (see |
ylimext |
A numeric scalar defining how much the y axis limits should be expanded beyond the plotted probabilities to allow for space for the bar labels. |
legend |
the position of the legend in the bar plot (will
be passed to |
legend.cex |
A scalar that controls the text size in the legend relative
to the current |
... |
additional parameters passed to |
This function creates a bar plot using the
barplot
function.
Each bar corresponds to a predictor (motif) and the colors correspond to
whether or not it was selected. The y-axis shows the selection
probabilities (directional=FALSE
) or selection probabilities with
the sign of the marginal correlation to the response
(directional=TRUE
).
a matrix
with one column, containing the coordinates of the
bar midpoints, or NULL
if no bar plot is drawn.
## create data set
Y <- rnorm(n = 500, mean = 2, sd = 1)
X <- matrix(data = NA, nrow = length(Y), ncol = 50)
for (i in seq_len(ncol(X))) {
X[ ,i] <- runif(n = 500, min = 0, max = 3)
}
s_cols <- sample(x = seq_len(ncol(X)), size = 10,
replace = FALSE)
for (i in seq_along(s_cols)) {
X[ ,s_cols[i]] <- X[ ,s_cols[i]] + Y
}
## reproducible randLassoStabSel() with 1 core
set.seed(123)
ss <- randLassoStabSel(x = X, y = Y)
plotSelectionProb(ss)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.