# This test takes >5 sec
# \donttest{
file <- system.file(
"extdata/input_files",
file = "test2.xlsx",
package = "quicR"
)
df_ <- get_real(file)[[1]] |>
quicR::transpose_real() |>
quicR::normalize_RFU(transposed = TRUE)
calculate_TtT(df_, threshold = 2)
# }
Run the code above in your browser using DataLab