R/ranuf.R

In RKUM: Robust Kernel Unsupervised Methods

Defines functions ranuf

Documented in ranuf

ranuf <-
function(p)
    {
   y <- runif(p,0,1)*3 - 1.5
  y <- sign(y)*(abs(y) + 0.5)
    return(y)
   }

Try the RKUM package in your browser