[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [R example for org-table with ifs] (was: [External] : Re: export org
From: |
Greg Minshall |
Subject: |
Re: [R example for org-table with ifs] (was: [External] : Re: export org table to other formats (gnumeric or scalc or xlsx)) |
Date: |
Thu, 08 Jul 2021 08:13:27 +0300 |
Uwe,
well, *i* no longer remember how to read calc-like expressions. and,
i'm a notoriously poor R coders. assuredly the following is not doing
what you want, but possibly you'll get the idea. (if 102.01 is, indeed,
the correct answer, feel free to buy me a hot fudge sundae some day. :)
cheers, Greg
#+name: thing
| / | <> | <> | <> | <> | <> | <> | <> |
| | | 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 | |
|---+---------+-------+--------+---------+----------+--------+---------|
#+TBLFM: $7=if($3>10,($3-10)*@3$8,0)+ min(10,$3)*@3$3+ min(10,$4)*@3$4 +
if($5>10,($5-10)*@3$8,0)+min(10,$5)*@3$5 +@3$6*$6;f1::
- does "@3$3" mean the third column in the third row?
- is that the "DMNI H" column?
- is that the "User1" row?
i replace "@3" with the last row of the input table.
#+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[nrow(some), "Weight2"]),
0.0) +
(min(10, some[, "DMNI.H"]) * some[nrow(some), "ExNDM.I"]) +
(ifelse(some[, "ExNDNM.J"] > 10, some[, "ExNDNM.J"] - 10 * some[nrow(some),
"DMNI.H"], 0)) +
(min(10, some[, "ExNDNM.J"]) * some[nrow(some), "ExNDNM.J"]) +
(some[nrow(some), "Result"] * some[, "Result"])
#+end_src
#+RESULTS:
| x |
|--------|
| |
| 102.01 |
- export org table to other formats (gnumeric or scalc or xlsx), Uwe Brauer, 2021/07/04
- Re: export org table to other formats (gnumeric or scalc or xlsx), Tim Cross, 2021/07/04
- Re: [External] : Re: export org table to other formats (gnumeric or scalc or xlsx), Daniel Ortmann, 2021/07/04
- Re: [External] : Re: export org table to other formats (gnumeric or scalc or xlsx), Uwe Brauer, 2021/07/05
- Re: [External] : Re: export org table to other formats (gnumeric or scalc or xlsx), Eric S Fraga, 2021/07/05
- Re: [External] : Re: export org table to other formats (gnumeric or scalc or xlsx), Greg Minshall, 2021/07/06
- [R example for org-table with ifs] (was: [External] : Re: export org table to other formats (gnumeric or scalc or xlsx)), Uwe Brauer, 2021/07/07
- Re: [R example for org-table with ifs], Eric S Fraga, 2021/07/07
- Re: [R example for org-table with ifs] (was: [External] : Re: export org table to other formats (gnumeric or scalc or xlsx)),
Greg Minshall <=
- Re: [R example for org-table with ifs], Uwe Brauer, 2021/07/08
- Re: [R example for org-table with ifs], Greg Minshall, 2021/07/08
Re: export org table to other formats (gnumeric or scalc or xlsx), Uwe Brauer, 2021/07/05
Re: export org table to other formats (gnumeric or scalc or xlsx), Uwe Brauer, 2021/07/05