Arrays 应用程序中的If语句

我尝试使用apply（）逐行遍历数组，查看1和0的列，然后在同一数组中填充另一列，如果第一列是1，则使用函数；如果第一列是0，则使用另一个函数

所以会有点像

应用（结果，1，如果（风险=1）{结果[，“年龄”]=功能1}其他{结果[，“年龄”]=功能2}）

其中，结果是有问题的数组，风险是决定我们使用哪个函数的变量

其目的是让两种功能决定寿命，人们可以分为两类，每一类都有自己的功能。根据风险组，我想使用不同的函数来计算年龄，但这似乎不起作用。

apply（）需要函数名；你需要在这里定义一个函数， 因为没有提供现成的函数

示例：应用（结果，1，总和）-将返回每行的总和。 vector中的输出数与number或rows相同，因此可以将其分配给变量，然后按cbind添加或替换现有列的值

apply(OutComes, 1, function(x) { 
  if (x[n] == 1) {
    Function_1 ()
  }else {
    Function_2 ()
    } ) -> new_age
# x : is the working row at the time
# n : column number for "risk" # or # if(x["risk"] ==1)
# also note == instead of = at if 
OutComes = cbind(OutComes, new_age)
#or
OutComes$Age <- new_age

apply（结果，1，函数（x）{
如果（x[n]==1）{
函数_1（）
}否则{
函数_2（）
}）->新时代
#x:当时是工作行吗
#n：“风险”#或#如果（x[“风险”]==1）的列号
#另请注意==而不是=在if
结果=cbind（结果，新年龄）
#或
我认为，
ifelse
可能适合在这里使用