work<-expand.grid(paste0('df$',names(df)),paste0('df$',names(df)))
SomersD <- c()
for (j in 1:nrow(work))
SomersD<-c(SomersD,SomersDelta(work[j,]$Var1,work[j,]$Var2))
work<-
Var1 Var2
1 df$Polymer.1 df$Polymer.1
2 df$Polymer.2 df$Polymer.1
3 df$Polymer.3 df$Polymer.1
4 df$Polymer.4 df$Polymer.1
5 df$Filler.1 df$Polymer.1
6 df$Filler.2 df$Polymer.1
...
但是现在，当我尝试遍历工作矩阵中的每一行并计算相应整数之间的SomersDelta时，我只得到了NaN。
例如，如果我的行具有这两个对应的条目，我想计算SomersDelta(df$Polymer.1, df$Filler.1)。由于某种原因，这不起作用，我也不知道为什么。
帮助？
====
> head(df)
# A tibble: 6 x 14
Polymer.1 Polymer.2 Polymer.3 Polymer.4 Filler.1 Filler.2 Filler.3 Oil.1 Oil.2 Co.Agent.1 Co.Agent.2 Tensile.Strength Elongation
<int> <int> <int> <int> <int> <int> <int> <int> <int> <dbl> <dbl> <dbl> <dbl>
1 100 0 0 0 50 0 0 30 0 2.4 0 8.38 188.
2 100 0 0 0 50 0 0 0 30 2.4 0 8.40 180.
3 100 0 0 0 60 0 0 0 36 1.7 1 8.40 130.
4 100 0 0 0 40 0 0 24 0 2.1 0.4 9.05 192.
5 0 0 100 0 0 50 0 0 30 0.6 2.3 9.44 162.
6 0 0 0 100 50 0 0 30 0 1.3 1.7 8.87 227.