小编G-s*_*pot的帖子

我有一个问题,是否有可能在R中实现excel功能"搜索决定"？R中是否有函数或者必须在R中创建一个脚本.必须通过组合这些X值来求解下面的等式,得到1,126作为结果.

1.126 = X / (X + 0.2) * (EXP (X + 0.2) -1)

我的资料

conc_data=structure(list(kod_nar.id = c(1L, 3L, 2L), 
    x123_1 = c(0L, 0L, 0L), 
    x124_2 = c(0, 0.123, 0.122), 
    x125_3 = 0:2, 
    x126_4 = c(0, 0.234, 0.99)),
   .Names = c("kod_nar.id", "x123_1", "x124_2", "x125_3", "x126_4"), 
   class = "data.frame", row.names = c(NA, -3L))

这里有4列，但是每2列需要合并为一列，并具有第一列的名称。换句话说，每对列都应合并在一起，并串联数字的值。结果，我们在数据框中将只有2列。数据帧中的每一列都有一对，列数是偶数，列的顺序是第一对，第二对，依此类推

IE输出

  kod_nar.id   x123_1   x125_3
1          1        0        0
2          3 0(0.123) 1(0.234)
3          2 0(0.122)  2(0.99)

怎么做？

mydata

  mydata=structure(list(ID_WORKES = c(1000561L, 1000561L, 1000561L, 1000561L, 
    1000561L, 1000561L, 1000562L, 1000562L, 1000562L, 1000562L, 1000562L, 
    1000562L), ID_SP_0R = c(21L, 463L, 465L, 500L, 600L, 1951L, 21L, 
    463L, 465L, 500L, 600L, 1951L), KOD_DEPO = c(0L, 0L, 0L, 0L, 
    0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L), KOD_DOR = c(0L, 0L, 0L, 0L, 
    0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L), COLUMN_MASH = c(0L, 0L, 0L, 
    0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L), prop_violations = c(0L, 
    0L, 0L, 0L, 0L, 0L, 0L, …