Skip to contents

#' plot_beam_boot produces a pairs plot of the beam stats matrices. Default is maximum of 5 plots, ordered by most significant association direction.

Usage

plot_beam_boot(
  beam.result,
  beam.feat.pvals,
  beam.specs = NULL,
  set.id,
  max.plots = 4,
  z = TRUE
)

Arguments

beam.result

A beam.stats object from compute_beam_stats

beam.feat.pvals

A list containing feature-level p-values from compute_feature_pvalues.

beam.specs

A data.frame. Default NULL, in which case beam.result$beam.specs is used. Otherwise can input other beam.specs data.frame that must contain name, mtx, mdl, plot columns.

set.id

A character specifying the name of a set. Must be in beam.result$beam.data$set.data

max.plots

A number specifying the max number of rows in the pairs plot. Default is 4, ordered by feature-level p-value.

z

Logical indicating whether to z-scale each vector of one coefficient estimate across bootstraps before plotting. Default is TRUE.

Value

A pairs plot figure.

Examples

data(beam_stats)
test.pvals <- compute_set_pvalues(beam.stats=beam_stats)
#> Preparing bootstrap results for calculating feature set p-values: Tue Jul 30 13:51:21 2024
#> Finding stats for each data matrix:Tue Jul 30 13:51:21 2024
#>   Finding stats for data matrix Lesion: Tue Jul 30 13:51:21 2024
#>    Finding features with with Lesion.MRD29 stats: Tue Jul 30 13:51:21 2024
#>    Finding features with with Lesion.EFS stats: Tue Jul 30 13:51:21 2024
#>    Finding features with with Lesion.OS stats: Tue Jul 30 13:51:21 2024
#>   Finding stats for data matrix RNA: Tue Jul 30 13:51:21 2024
#>    Finding features with with RNA.MRD29 stats: Tue Jul 30 13:51:21 2024
#>    Finding features with with RNA.EFS stats: Tue Jul 30 13:51:21 2024
#>    Finding features with with RNA.OS stats: Tue Jul 30 13:51:21 2024
#> Found 120 rows of stats: Tue Jul 30 13:51:21 2024
#> Merging stats with feature-sets: Tue Jul 30 13:51:21 2024
#> Merged feature-set stat rows: 120
#> Ordering and indexing feature sets: Tue Jul 30 13:51:21 2024
#>   Cleaning up beam.stat matrices:Tue Jul 30 13:51:21 2024
#>    Working on matrix 1 of 6: Tue Jul 30 13:51:21 2024
#>    Working on matrix 2 of 6: Tue Jul 30 13:51:21 2024
#>    Working on matrix 3 of 6: Tue Jul 30 13:51:21 2024
#>    Working on matrix 4 of 6: Tue Jul 30 13:51:21 2024
#>    Working on matrix 5 of 6: Tue Jul 30 13:51:21 2024
#>    Working on matrix 6 of 6: Tue Jul 30 13:51:21 2024
#> Computing p-value for feature set 1 of 34: Tue Jul 30 13:51:21 2024
#> 13ENSG00000081760
#> Computing p-value for feature set 26 of 34: Tue Jul 30 13:51:21 2024
#> 9496ENSG00000229835
#> Finished computing p-values at: Tue Jul 30 13:51:21 2024
#> Minimum q-value is 0.106439437831269
#> Creating set p-value data frame.
#> Done creating data frame.
#> Creating list for output.
test.feat.pvals <- compute_feature_pvalues(beam.stats=beam_stats)
#> Computing feature p-values for stat matrix 1 of 6: Tue Jul 30 13:51:21 2024
#>   This matrix has 20 features.
#> Computing feature p-values for stat matrix 2 of 6: Tue Jul 30 13:51:21 2024
#>   This matrix has 20 features.
#> Computing feature p-values for stat matrix 3 of 6: Tue Jul 30 13:51:21 2024
#>   This matrix has 20 features.
#> Computing feature p-values for stat matrix 4 of 6: Tue Jul 30 13:51:21 2024
#>   This matrix has 20 features.
#> Computing feature p-values for stat matrix 5 of 6: Tue Jul 30 13:51:21 2024
#>   This matrix has 20 features.
#> Computing feature p-values for stat matrix 6 of 6: Tue Jul 30 13:51:21 2024
#>   This matrix has 20 features.
test.boot.plot <- plot_beam_boot(beam_stats, test.feat.pvals,
                                 set.id="ENSG00000099810")