ifelse() Function ifelse(condition, value for T, value for F): ▶ A vector version of if-then-else statement. ▶ It returns a vector with the same length as the vector in condition. > x <- 1:10 > y <- ifelse(x %% 3 == 0, 0, 1) >y [1] 1 1 0 1 1 0 1 1 0 1 > > x <- c(’A’,’A’,’B’,’C’,’C’,’A’) > ifelse(x == ’A’, 1, 0) [1] 1 1 0 0 0 1

这段代码展示了 R 语言中的 ifelse() 函数的使用。ifelse() 函数是 if-then-else 语句的向量化版本，它可以根据条件返回两个不同的值，返回的结果是一个与条件向量相同长度的向量。

首先，定义了一个整数向量 x，包含了 1 到 10 这 10 个数字。然后使用 x %% 3 == 0 的条件，判断 x 中的每个元素是否可以被 3 整除，如果可以，则返回 0，否则返回 1。因此，y 中的第 3、6、9 个元素为 0，其余元素为 1。

接着，定义了一个字符向量 x，包含了 6 个元素。使用 x == "A" 的条件，判断 x 中的每个元素是否等于 "A"，如果是，则返回 1，否则返回 0。因此，ifelse() 返回了一个长度为 6 的向量，其中第 1、2、6 个元素为 1，其余元素为 0。