Revision 583e8e137abae0107d3e0ea9b5549b3d141ba1c5 authored by Piotr Romanski on 11 April 2009, 00:00:00 UTC, committed by Gabor Csardi on 11 April 2009, 00:00:00 UTC
1 parent 04f271f
normalize.R
normalize.min.max <- function(data) {
attr_count = dim(data)[2]
if(attr_count == 0)
return(data)
for(i in 1:attr_count) {
if(!is.numeric(data[, i]))
next()
if(!any(complete.cases(data[, i])))
next()
mm = range(data[, i], na.rm = TRUE)
minimum = mm[1]
maximum = mm[2]
if(minimum == maximum)
data[, i] = data[, i] / minimum
else
data[, i] = (data[, i] - minimum) / (maximum - minimum)
}
return(data)
}
Computing file changes ...