由于神经网络包没有ReLU函数，所以我尝试编写ReLU函数的代码。但是有一个我不明白的错误。请在下面查看我的代码和错误信息。
relu<-function(x){ifelse(x>=0,x,0)}
nn <- neuralnet(y~a+b+c+d+e+f,data=train,hidden=c(5),linear.output=T,act.fct = relu)
deriv.formula(eval(parse(text = text)), "x", func = eval(parse(text = text2)) 中的错误：函数‘ifelse’不在导数表中