library(DT)
data<-read.csv('biao2g.csv',header=TRUE,encoding='UTF-8')
library(DT)

normalize <- function(x){
return ((x-min(x))/(max(x)-min(x))｝

pos<-data[c(1:14),],1,normalize)
求求