Uwe,
> Thanks but I have to disappoint you the correct result should be 10.1
ah, well. :)
i realized you probably wanted the table back. below it is, with your
explanation of "@3$3".
> Thanks I will play around a bit, but for the moment I think I have to
> stick with calc
well, takes all kinds. :)
cheers, Gerg
----
#+begin_src R :var some=thing :session R :colnames yes
## in imported colnames, spaces are replaced with periods
some[, "Result"] <-
ifelse(some[, "DMNI.H"] > 10, (some[, "DMNI.H"] - 10.0) *
(some[X == "Weight:", "Weight2"]),
0.0) +
(min(10, some[, "DMNI.H"]) * some[X == "Weight:", "ExNDM.I"]) +
(ifelse(some[, "ExNDNM.J"] > 10, some[, "ExNDNM.J"] - 10 *
some[X == "Weight:", "DMNI.H"], 0)) +
(min(10, some[, "ExNDNM.J"]) *
some[X == "Weight:", "ExNDNM.J"]) +
(some[X == "Weight:", "Result"] *
some[, "Result"])
some
#+end_src
#+RESULTS:
| X | DMI.G | DMNI.H | ExNDM.I | ExNDNM.J | Result | Weight2 |
|---------+-------+--------+---------+----------+--------+---------|
| Weight: | 1 | 0.2 | 1 | 0.1 | | 0.1 |
| User1 | 0 | 0 | 11 | 0 | 10.1 | |
