causalLearning.Rcheck/00_pkg_src/causalLearning/R/truncpow.R

truncpow = function(x, cutp, dir = 1) {
  if (dir == 1) 
    out = (x - cutp) * (x > cutp)
  if (dir == 2) 
    out = (cutp - x) * (x < cutp)
  return(out)
}
saberpowers/causalLearning documentation built on May 30, 2019, 8:26 a.m.