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)求求