정규화 r

#min-max 정규화
normalize <- function(x){
  return((x-min(x))/(max(x)-min(x)))
}
data <- as.data.frame(lapply(data, normalize))

#z-score 정규화
z.norm<-function(x){
  return((x-mean(x))/sd(x))
}

data<-as.data.frame(lapply(data, z.norm))
head(data)

#robust 정규화
data <- function(x){
  return((x-median(x))/(IQR(x)))
}
data<-as.data.frame(lapply(data, z.norm))
head(data)