R/maxvector.R

Defines functions maxvector

maxvector <- function(x) {
  index <- which.max(x)
  output <- rep(0,length(x))
  output[index] <- 1
  output
}
WarrRich/LCMBounds documentation built on June 29, 2023, 1:29 p.m.