# Analysis of variance where `class` is the class predictor and the numeric
# predictors are the outcomes/responses
cell_data <- modeldata::cells
cell_data$case <- NULL
# ANOVA p-value
cell_p_val_res <-
score_aov_pval |>
fit(class ~ ., data = cell_data)
cell_p_val_res@results
# ANOVA raw p-value
natrual_units <- score_aov_pval |> dont_log_pvalues()
cell_pval_natrual_res <-
natrual_units |>
fit(class ~ ., data = cell_data)
cell_pval_natrual_res@results
# ANOVA t/F-statistic
cell_t_stat_res <-
score_aov_fstat |>
fit(class ~ ., data = cell_data)
cell_t_stat_res@results
# ---------------------------------------------------------------------------
library(dplyr)
# Analysis of variance where `chem_fp_*` are the class predictors and
# `permeability` is the numeric outcome/response
permeability <-
modeldata::permeability_qsar |>
# Make the problem a little smaller for time; use 50 predictors
select(1:51) |>
# Make the binary predictor columns into factors
mutate(across(starts_with("chem_fp"), as.factor))
perm_p_val_res <-
score_aov_pval |>
fit(permeability ~ ., data = permeability)
perm_p_val_res@results
# Note that some `lm()` calls failed and are given NA score values. For
# example:
table(permeability$chem_fp_0007)
perm_t_stat_res <-
score_aov_fstat |>
fit(permeability ~ ., data = permeability)
perm_t_stat_res@results
Run the code above in your browser using DataLab