# \donttest{
library(dplyr)
#Two-way Ordinal Regression.
#Results in model NPX~Treatment*Time.
try({ # May not work if dependencies are not installed.
ordinalRegression_results <- olink_ordinalRegression(df = npx_data1,
variable="Treatment:Time")
#Filtering out significant and relevant results.
significant_assays <- ordinalRegression_results %>%
filter(Threshold == 'Significant' & term == 'Time') %>%
select(OlinkID) %>%
distinct() %>%
pull()
#Posthoc test for the model NPX~Treatment*Time,
#on the effect Time.
#Posthoc
ordinalRegression_results_posthoc_results <- olink_ordinalRegression_posthoc(npx_data1,
variable=c("Treatment:Time"),
olinkid_list = significant_assays,
effect = "Time")
})
# }
Run the code above in your browser using DataLab