# This test takes >5 sec
# \donttest{
file <- system.file(
"extdata/input_files",
file = "test4.xlsx",
package = "quicR"
)
data <- quicR::get_real(file)[[1]] |>
quicR::normalize_RFU()
meta <- quicR::organize_tables(file) |>
quicR::convert_tables()
calculate_metrics(data, meta) |>
plot_metrics()
# }
Run the code above in your browser using DataLab