如何在R中进行向量计算

以前的代码：

x<-c(1:10)

我们可以通过使用%%创建逻辑索引来使用ifelse

---

你可以找到奇数和偶数，把它们从x中子集，然后对它们进行数学运算

x <- c(0, 3, 2, 5, 4)

find.odd <- (x %% 2) == 1
find.even <- (x %% 2) == 0

x[find.odd] <- x[find.odd] - 1
x[find.even] <- x[find.even] + 1
x

[1] 1 2 3 4 5

或ifelsex%%2，x-1，x+1

ifelse(!x%%2, x+1, x-1)
#[1]  0  3  2  5  4  7  6  9  8 11

x <- c(0, 3, 2, 5, 4)

find.odd <- (x %% 2) == 1
find.even <- (x %% 2) == 0

x[find.odd] <- x[find.odd] - 1
x[find.even] <- x[find.even] + 1
x

[1] 1 2 3 4 5