R/rank2ind.R

Defines functions rank2ind

rank2ind <- function(y_b, perms) {
  #transform y_b to index
  if (length(y_b)>1) y_b <- which(apply(perms, 2, function(perm) all(perm==y_b)))
  return(y_b)
}
susanne-frick/MFCblockInfo documentation built on Oct. 20, 2024, 8:26 p.m.