如何有效地将rbinom函数应用于数据帧中的每一行？

# 创建一个包含数据帧的示例数据
df <- data.frame(x1 = c(1, 2, 3), x2 = c(4, 5, 6), x3 = c(7, 8, 9))

# 使用apply()函数将rbinom函数应用于每一行
result <- apply(df, 1, function(row) {
  rbinom(length(row), size = 1, prob = 0.5)
})

# 打印结果
print(result)

# 创建一个包含数据帧的示例数据
df <- data.frame(x1 = c(1, 2, 3), x2 = c(4, 5, 6), x3 = c(7, 8, 9))

# 创建一个空的结果向量
result <- vector("list", nrow(df))

# 使用for循环将rbinom函数应用于每一行
for (i in 1:nrow(df)) {
  result[[i]] <- rbinom(length(df[i, ]), size = 1, prob = 0.5)
}

# 将结果转换为数据帧
result <- data.frame(do.call(rbind, result))

# 打印结果
print(result)