R/removePCR.R

Defines functions removePCR

removePCR <- function(data = data){
  if(length(data) > 1){
    q_75 <- quantile(data, 0.75)
    data[data > q_75] = round(q_75)
    return(sum(data))
  }
  else{
    return(1)
  }
}
rr1859/R.4Cker documentation built on Feb. 11, 2020, 12:48 p.m.