是这样：
如果最大值在第1列，那么该系数为第1列的数值与（第9列（1+16/2=9）的数值+第1列数值）之比。
如果最大值在第7列，那么该系数为第7列的数值与（第15列（7+16/2=15）的数值+第7列数值）之比。
如果最大值在第14列，那么该系数为第14列的数值与（第6列（14-16/2=6）的数值+第14列数值）之比。
如果最大值在第16列，那么该系数为第16列的数值与（第8列（16-16/2=8）的数值+第16列数值）之比。
例如上面的图片所示，第一行中，最大值2.891在第9列，对应的第1列的值为1.181，那么LB=2.891/（2.891+1.181），就是这个意思，有什么办法可以解决嘛

那应该需要多加一行代码

你好 运行了一下代码 发现结果仍然不正确 如果删掉这一行relid[which(relid < 9)] <- relid[which(relid < 9)] + 1 结果就是正确的了  但是由于在第50行时最大值在第8列  relid就等于0  因此程序会报错  想问下您这个语句是什么意思呢relid[which(relid < 9)] <- relid[which(relid < 9)] + 1

稍微改动了下 运行出正确结果了 非常感谢您！
df<- read.csv("C:/D/CROWNjiu/R/BOXPLOT/T30/mmc16.csv",row.names = 1)
relid<-(apply(df,1,which.max)+8)%%16
relid[which(relid < 1)] <- relid[which(relid <1 )] + 16
lb<-apply(df,1,max)
for(i in 1:nrow(df)){lb <- lb/(lb + df[i,relid])}
View(lb)