# This test takes >5 sec
# \donttest{
file <- system.file(
"extdata/input_files",
file = "test2.xlsx",
package = "quicR"
)
# Get the real-time data.
df_ <- get_real(file, ordered = FALSE)[[1]] |>
as.data.frame()
sample_locations <- get_sample_locations(
file,
dilution_bool = TRUE,
dilution_fun = function(x) -log10(x)
)
plate_view(df_, sample_locations)
# }
Run the code above in your browser using DataLab