if (FALSE) {
all_txt <- tibble::tribble(
~`data_filename`, ~`sample_id`, ~`component_name`, ~Area, ~`IS Area`,
"Sample1", "ID1", "Compound1", 100, 50,
"Sample1", "ID2", "Compound2", 200, 75,
"Sample2", "ID1", "Compound1", 150, 60,
"Sample2", "ID2", "Compound2", 250, 80
)
area_data <- convert_mrm_data(all_txt, "Area", "data_filename", "sample_id", "component_name")
is_area_data <- convert_mrm_data(all_txt, "IS Area", "data_filename", "sample_id", "component_name")
print(area_data)
print(is_area_data)
}
Run the code above in your browser using DataLab