From 48ffa800c141a80894d31aeada1371bfaabbd927 Mon Sep 17 00:00:00 2001 From: angelovangel Date: Sat, 9 Dec 2023 10:58:24 +0300 Subject: [PATCH] add 15-well plate format --- R/plate_utilities.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/plate_utilities.R b/R/plate_utilities.R index 31e4c10..3f857b0 100644 --- a/R/plate_utilities.R +++ b/R/plate_utilities.R @@ -97,9 +97,9 @@ get_plate_size_from_number_of_columns <- function(columns) { # @return the corresponding value, or an empty vector if invalid data supplied plate_dimensions <- function(get, from, value) { dimensions <- data.frame( - Columns = c(3, 4, 6, 8, 12, 24, 48), - Rows = c(2, 3, 4, 6, 8, 16, 32), - PlateSize = c(6, 12, 24, 48, 96, 384, 1536)) + Columns = c(3, 4, 5, 6, 8, 12, 24, 48), + Rows = c(2, 3, 3, 4, 6, 8, 16, 32), + PlateSize = c(6, 12, 15, 24, 48, 96, 384, 1536)) which_row <- which(dimensions[[from]] == value)