R/washout.R

In phalen: Phalen Algorithms and Functions

Defines functions washout

Documented in washout

washout <-
function(x, washcol, method = "index") {
  if (method == "value") {
    washvec = cut(x,length(washcol),labels = FALSE)
  } else if (method == "index") {
    washvec = cut(1:length(x), length(washcol), labels = FALSE)
  } else {break}
  washout = washcol[washvec]
  washout
}

Try the phalen package in your browser