construct_experimental_data.R

# experimental_data <- dplyr::as_tibble(openxlsx::read.xlsx("D:/fudan/Projects/2023/MetaboRI/Progress/database/demo/tidy/experimental_data.xlsx"))
# experimental_data <- experimental_data %>%
#   dplyr::select(feature, rt) %>%
#   dplyr::arrange(rt)