#' Get indices of five neighbors for an index at the right line of the plate
#'
#' @param plateformat An integer which can be one of 96 or 384 or 1536
#' @param n An integer which can be one of \code{right_line_indices(plateformat)}
#'
#' @return numeric vector of five neighbors for the given \code{plateformat} and
#' \code{n}
#' @export
#'
#' @examples
#' right_line_neighbors(384, 370)
#' right_line_neighbors(1536, 1506)
right_line_neighbors <- function(plateformat, n)
{
p_nrow <- plate_nrow(plateformat)
if (n %in% right_line_indices(plateformat)) {
x <- c(n + 1,
n - 1,
n - p_nrow + 1,
n - p_nrow,
n - p_nrow - 1)
return(sort(x))
} else {
stop(paste('The value of n should be one returned by right_line_indices(',
plateformat, ')', sep=''))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.