R/normalize.R

normalize <-
function(ar){
# Normalization into <0,1>
 # ar<-(ar-mean(ar))/sd(ar)
 if (is.numeric(ar)) {ar<-(ar-min(ar))/(max(ar)-min(ar))}
 ar
}

Try the symbols package in your browser

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

symbols documentation built on May 2, 2019, 8:28 a.m.