R/select-ranks.R

Defines functions biggerCIV retainOrder specificPosition sameHierarchy betterEqual alwaysTRUE getRank

getRank <- function(leagueTable, small.values) {
  res <- sort(leagueTable[1, ],
              decreasing = small.values == "good") %>% names() 
  ##
  res
}


alwaysTRUE <- function(args, small.values, leagueTable)
  TRUE


betterEqual <- function(treatpos, small.values, leagueTable){
  treat <- treatpos[[1]]
  position <- treatpos[[2]]
  rank <- getRank(leagueTable, small.values)
  ##
  match(treat, rank) <= position
}


sameHierarchy <- function(ranklist, small.values, leagueTable)
  all(getRank(leagueTable, small.values) == ranklist[[1]])


specificPosition <- function(treatpos, small.values, leagueTable) {
  rank <- getRank(leagueTable, small.values)
  treat <- treatpos[[1]]
  position = treatpos[[2]]
  ##
  rank[[position]] == treat
}


retainOrder <- function(treatments, small.values, leagueTable){
  !is.unsorted(match(unlist(treatments), getRank(leagueTable, small.values)))
}


biggerCIV <- function(args, small.values, leagueTable)
  leagueTable[args[[2]], args[[1]]] > args[[3]]
esm-ispm-unibe-ch/nmarank documentation built on Jan. 16, 2022, 6 a.m.