# \donttest{
if (rlang::is_installed(pkg = c("ordinal", "broom"))) {
npx_df <- OlinkAnalyze::npx_data1 |>
dplyr::filter(
!grepl(
pattern = "control",
x = .data[["SampleID"]],
ignore.case = TRUE
)
)
# Two-way Ordinal Regression with CLM.
# Results in model NPX~Treatment+Time+Treatment:Time.
ordinalRegression_results <- OlinkAnalyze::olink_ordinal_regression(
df = npx_df,
variable = "Treatment:Time"
)
}
# }
Run the code above in your browser using DataLab