# \donttest{
library(dplyr)
npx_df <- npx_data1 %>% filter(!grepl('control',SampleID, ignore.case = TRUE))
wilcox_results <- olink_wilcox(df = npx_df,
variable = 'Treatment',
alternative = 'two.sided')
#Paired Mann-Whitney U Test
npx_df %>%
filter(Time %in% c("Baseline","Week.6")) %>%
olink_wilcox(variable = "Time", pair_id = "Subject")
# }
Run the code above in your browser using DataLab