R/to.uniform.R

to.uniform <- function(ref, val=NA){
   the.ecdf <-  ecdf(ref)
   if(length(val)==1 && is.na(val)){
      ans <- the.ecdf(ref)
   } else {
      ans <- the.ecdf(val)
   } 
   return(ans)
}

Try the tiger package in your browser

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

tiger documentation built on May 2, 2019, 2:22 a.m.