R/set.primes.R

Defines functions set.primes

set.primes <- function(vars, new, counter) {
  primed <- intersect(vars, names(counter))
  initial <- setdiff(vars, names(counter))
  if (new) {
    counter[primed] <- counter[primed] + 1
    counter[initial] <- 1
  } else {
    counter[initial] <- 0
  }
  primes <- sapply(counter, function(x) {
    if (x > 1) return (paste0("^{", paste0(rep("\\prime", x - 1), collapse = ""), "}", collapse = ""))
    return ("")
  })
  return (list(counter = counter, super = setNames(primes, names(counter))))
}

Try the causaleffect package in your browser

Any scripts or data that you put into this service are public.

causaleffect documentation built on July 14, 2022, 5:07 p.m.