Limpa contrast analysis facade
Limpa contrast analysis facade
Details
Encapsulates the pipeline: strategy_limpa ->
build_model_limpa -> ContrastsLimma.
Operates as a "same"-level facade: it consumes whatever aggregated
LFQData prolfqua's normal aggregation pipeline produced and fits limpa at
that hierarchy level. If config$opt_se is set (e.g. when the input
came from AggregateLimpa), the per-observation standard error
is used as a vooma precision-weight predictor; otherwise plain vooma is
fit. The config$nr_children column is required and is used to flag
imputed observations (nr_children == 0) for vooma's
imputation-aware DF correction.
For nested (peptide/precursor) input that should be rolled up to proteins
via limpa's DPC quantification, use ContrastsLimpaNestedFacade
instead — that facade owns the AggregateLimpa pre-step.
See also
Other modelling:
AnovaExtractor,
Contrasts,
ContrastsDEqMSFacade,
ContrastsDEqMSVoomFacade,
ContrastsFirth,
ContrastsFirthFacade,
ContrastsFirthNestedFacade,
ContrastsLMFacade,
ContrastsLMImputeFacade,
ContrastsLMMissingFacade,
ContrastsLimma,
ContrastsLimmaFacade,
ContrastsLimmaImputeFacade,
ContrastsLimmaVoomFacade,
ContrastsLimmaVoomImputeFacade,
ContrastsLimpaNestedFacade,
ContrastsLmerNestedFacade,
ContrastsMissing,
ContrastsModerated,
ContrastsModeratedDEqMS,
ContrastsPlotter,
ContrastsRLMFacade,
ContrastsROPECA,
ContrastsROPECANestedFacade,
ContrastsRfitFacade,
ContrastsTable,
INTERNAL_FUNCTIONS_BY_FAMILY,
LR_test(),
Model,
ModelFirth,
ModelLimma,
StrategyLM,
StrategyLimma,
StrategyLimpa,
StrategyLmer,
StrategyLogistf,
StrategyRLM,
StrategyRfit,
build_contrast_analysis(),
build_model(),
build_model_glm_peptide(),
build_model_glm_protein(),
build_model_impute(),
build_model_limma(),
build_model_limma_impute(),
build_model_limma_voom(),
build_model_limma_voom_impute(),
build_model_limpa(),
build_model_logistf(),
compute_borrowed_variance(),
compute_borrowed_variance_limma(),
compute_contrast(),
compute_lmer_contrast(),
contrasts_fisher_exact(),
df.residual.rfit_prolfqua(),
get_anova_df(),
get_complete_model_fit(),
get_p_values_pbeta(),
group_label(),
impute_refit_singular(),
is_singular_lm(),
linfct_all_possible_contrasts(),
linfct_factors_contrasts(),
linfct_from_model(),
linfct_matrix_contrasts(),
list_facades(),
lookup_facade(),
merge_contrasts_results(),
model_analyse(),
model_summary(),
moderated_p_deqms(),
moderated_p_deqms_long(),
moderated_p_limma(),
moderated_p_limma_long(),
new_lm_imputed(),
pivot_model_contrasts_to_wide(),
plot_lmer_peptide_predictions(),
register_facade(),
sigma.rfit_prolfqua(),
sim_build_models_lm(),
sim_build_models_lmer(),
sim_build_models_logistf(),
sim_make_model_lm(),
sim_make_model_lmer(),
strategy_limma(),
strategy_limpa(),
strategy_logistf(),
summary_ROPECA_median_p.scaled(),
unregister_facade(),
vcov.rfit_prolfqua()
Super class
prolfqua::ContrastsInterface -> ContrastsLimpaFacade
Public fields
modelModelLimma object (from build_model_limpa)
contrastContrastsLimma object
.lfqdatastored reference to input LFQData
.contrast_namesnames of the requested contrasts
Methods
Inherited methods
prolfqua::ContrastsInterface$column_description()prolfqua::ContrastsInterface$contrast_summary_table()prolfqua::ContrastsInterface$extra_artifacts()prolfqua::ContrastsInterface$filter_significant()prolfqua::ContrastsInterface$get_config()prolfqua::ContrastsInterface$get_contrast_sides()prolfqua::ContrastsInterface$get_ora()prolfqua::ContrastsInterface$get_rank()
Method new()
initialize
Usage
ContrastsLimpaFacade$new(
lfqdata,
modelstr,
contrasts,
plot = FALSE,
span = NULL,
...
)Arguments
lfqdataaggregated LFQData. If
config$opt_seis set (e.g. fromAggregateLimpa), the SE column is used as a vooma precision-weight predictor; otherwise vooma is fit without an external predictor.modelstrmodel formula string (e.g. "~ group_")
contrastsnamed character vector of contrasts
plotlogical; if TRUE, plot the vooma mean-variance trend
spanlowess smoother span (NULL = auto)
...passed to
strategy_limpa(e.g. trend, robust)
Examples
istar <- prolfqua::sim_lfq_data_peptide_config()
#> creating sampleName from file_name column
#> completing cases
#> completing cases done
#> setup done
lfqdata <- LFQData$new(istar$data, istar$config)
lfqdata <- lfqdata$get_Transformer()$log2()$lfq
#> Column added : log2_abundance
agg <- AggregateLimpa$new(lfqdata, "protein")
lfq_agg <- agg$aggregate()
#> completing cases
contrasts <- c("A_vs_Ctrl" = "group_A - group_Ctrl")
fa <- ContrastsLimpaFacade$new(lfq_agg, "~ group_", contrasts)
head(fa$get_contrasts())
#> # A tibble: 6 × 14
#> facade modelName protein_Id contrast diff FDR std.error statistic
#> <chr> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 limpa limpa 0EfVhX~0087 A_vs_Ctrl -0.0244 0.407 0.0283 -0.862
#> 2 limpa limpa 7cbcrd~5725 A_vs_Ctrl 0.725 0.00458 0.185 3.91
#> 3 limpa limpa 9VUkAq~4703 A_vs_Ctrl -0.572 0.000276 0.0991 -5.78
#> 4 limpa limpa BEJI92~5282 A_vs_Ctrl 0.236 0.0138 0.0739 3.19
#> 5 limpa limpa CGzoYe~2147 A_vs_Ctrl -0.296 0.146 0.175 -1.70
#> 6 limpa limpa DoWup2~5896 A_vs_Ctrl 0.282 0.0000889 0.0417 6.77
#> # ℹ 6 more variables: p.value <dbl>, sigma <dbl>, df <dbl>, conf.low <dbl>,
#> # conf.high <dbl>, avgAbd <dbl>