R/platereturn.R

In matiasandina/nobrainr: What the Package Does (One Line, Title Case)

platereturn <- function (AP) {
  atlas_sub <-
    atlasIndex[atlasIndex$plane == "coronal", "mm_from_bregma"]
  ind <- sapply(AP, function(x)
    which.min(abs(x - atlas_sub)))
  return(ind)
}