create all possible contrasts
linfct_all_possible_contrasts(lin_int)Other modelling:
Contrasts,
ContrastsMissing,
ContrastsModerated,
ContrastsPlotter,
ContrastsProDA,
ContrastsROPECA,
ContrastsTable,
INTERNAL_FUNCTIONS_BY_FAMILY,
LR_test(),
Model,
build_model(),
contrasts_fisher_exact(),
get_anova_df(),
get_complete_model_fit(),
get_p_values_pbeta(),
isSingular_lm(),
linfct_factors_contrasts(),
linfct_from_model(),
linfct_matrix_contrasts(),
merge_contrasts_results(),
model_analyse(),
model_summary(),
moderated_p_limma(),
moderated_p_limma_long(),
my_contest(),
my_contrast(),
my_contrast_V1(),
my_contrast_V2(),
my_glht(),
pivot_model_contrasts_2_Wide(),
plot_lmer_peptide_predictions(),
sim_build_models_lm(),
sim_build_models_lmer(),
sim_make_model_lm(),
sim_make_model_lmer(),
strategy_lmer(),
summary_ROPECA_median_p.scaled()
m <- sim_make_model_lm( "interaction")
#> creating sampleName from fileName column
#> completing cases
#> completing cases done
#> setup done
#> Joining with `by = join_by(protein_Id)`
linfct <- linfct_from_model(m)
xl <- prolfqua::linfct_all_possible_contrasts(linfct$linfct_factors)
xx <- prolfqua::linfct_all_possible_contrasts(linfct$linfct_interactions)
m <- sim_make_model_lm( "factor")
#> creating sampleName from fileName column
#> completing cases
#> completing cases done
#> setup done
#> Joining with `by = join_by(protein_Id)`
linfct <- linfct_from_model(m)
xl <- prolfqua::linfct_all_possible_contrasts(linfct$linfct_factors)
xx <- prolfqua::linfct_all_possible_contrasts(linfct$linfct_interactions)
m <- sim_make_model_lm( "parallel2")
#> creating sampleName from fileName column
#> completing cases
#> completing cases done
#> setup done
#> Joining with `by = join_by(protein_Id)`
linfct <- linfct_from_model(m)
xl <- prolfqua::linfct_all_possible_contrasts(linfct$linfct_factors)
stopifnot(all(xl == c(0,-1)))
xx <- prolfqua::linfct_all_possible_contrasts(linfct$linfct_interactions)
stopifnot(all(xx == c(0,-1)))
m <- sim_make_model_lm( "parallel3")
#> creating sampleName from fileName column
#> completing cases
#> completing cases done
#> setup done
#> Joining with `by = join_by(protein_Id)`
linfct <- linfct_from_model(m)
xl <- prolfqua::linfct_all_possible_contrasts(linfct$linfct_factors)
stopifnot(all(xl == c(0,0,0,-1,0,1,0,-1,-1)))
xx <- prolfqua::linfct_all_possible_contrasts(linfct$linfct_interactions)
stopifnot(all(xl == c(0,0,0,-1,0,1,0,-1,-1)))