如何创建 "if-else" 条件？

Question

我有这个脚本：

sqmat <- structure(c(12, 68, 1, 31, 5, 7, 25, 17, 1, 25, 17, 1, 31, 5, 
7), .Dim = c(3L, 5L))

sqmat_2 <- structure(c(52, 4, 1, 31, 26, 22, 52, 4, 1, 23, 55, 12, 31, 26, 
22), .Dim = c(3L, 5L))

我需要一个“if-else”条件：

如果 sqmat_2 (52) 中的输出 row=1, col=1 > 然后两次输出 row=1, col=1 in sqmat (2 x 12) => 给我“O” . 否则（如果 52 <= 2 x 12）给我“C”。

两个矩阵sqmat和sqmat_2逐点计算；并将结果显示在矩阵中。我能怎么做？谢谢你帮助我！

Answer 1

我们可以使用 ifelse 和 'test' 中指定的逻辑条件以及 'yes' 和 'no' 作为值 'O' 和 'C'.建议参数 'test'、'yes'、'no' 的长度相等。在这种情况下，'yes' 和 'no' 是单个元素，它被回收

ifelse(sqmat_2 > (2 * sqmat), "O", "C")
    [,1] [,2] [,3] [,4] [,5]
[1,] "O"  "C"  "O"  "C"  "C" 
[2,] "C"  "O"  "C"  "O"  "O" 
[3,] "C"  "O"  "C"  "O"  "O"

如何创建 "if-else" 条件？

How to create an "if-else" condition?

if-statement

r