library(readxl)
dat=read_xlsx('C:/Users/W/Desktop/jia.xlsx')
dat=as.data.frame(dat)
row.names(dat)=dat[,1]
dat=dat[,-1]
rs=function(df) {
  #相对化处理
  a=t(t(df)/colMeans(df))
  #权重#apply(指定矩阵，1-按行计算2-按列计算，计算函数)
  wt=apply(a,2, sd)/ colMeans(a)
  #相对权重
  wt=wt/sum(wt)
  #加权求和
  value=rowSums(t(t(a)*wt))
  return(value)
}

rs(dat)