高斯码到R码的转换，用于if-else语句

Question

我有高斯的代码。

如果prodc((lowerlb2[.，2].le-thxseq[.，2](.*(thxseq[]，2].le upperl2[.，[2](==1；count_bb[2,2]=计数_bb[2.2]1；endif；

对于在R中执行此特定语句的任何帮助，我们将不胜感激。

Answer 1

我无法访问您的数据，例如lowerlb2，但这是如何在R:中执行文档中的示例

高斯：

x = { 1 2 3,
4 5 6,
7 8 9 };
y = prodc(x);
28
y =  80
162

在R:

library(tidyverse)
data <- tribble(
~a, ~b, ~c,
1, 2, 3,
4, 5, 6,
7, 8, 9
)
lapply(data, prod)
#> $a
#> [1] 28
#> 
#> $b
#> [1] 80
#> 
#> $c
#> [1] 162

注意，使用lapply而不是apply。

有一本免费的书在https://r4ds.had.co.nz/使用tidyverse学习R中的数据分析。