Neural network 如何在神经网络中应用多项式函数？

我已经知道如何使用神经网络中的“简单公式”，如下所示：

f = as.formula(paste("logK ~",paste(n[!n %in% "logK"], collapse = " + ")))

但是我有一个问题是如何将多项式模型应用到神经网络中

n = names(dataset)
f = as.formula(paste("logK ~.-Co-Ru +I(Cr ^ 3)+I(Mo ^ 3)+I(Re ^ 3)+I(Ti ^ 3) +I(Temp ^ 3)+I(Re ^5 )+I(Temp ^ 5)+I(Cr ^ 7)+I(Re ^ 7)+I(Re ^ 9)", paste(n[!n %in% "logK"])))
nn = neuralnet(f, data = trainset, hidden = 10, act.fct = "tanh") 

分析时出错（text=x，keep.source=FALSE）：：1:121:意外符号 1:logK~-Co-Ru+I（Cr^3）+I（Mo^3）+I（Re^3）+I（Ti^3）+I（Temp^3）+I（Re^5）+I（Temp^5）+I（Cr^7）+I（Re^7）+I（Re^9）Al ^ 回溯：

作为公式（糊剂（“logK~.-Co-Ru+I（Cr^3）+I（Mo^3）+I（Re^3）+I（Ti^3）+I（Temp^3）+I（Re^5）+I（Temp^5）+I（Cr^7）+I（Re^7）+I（Re^9）”， .粘贴（n[！n%in%“logK”]））

公式（对象，env=baseenv（））

formula.character（对象，env=baseenv（））

公式（eval（parse（text=x，keep.source=FALSE）[[1L]]））

eval（解析（text=x，keep.source=FALSE）[[1L]]

解析（text=x，keep.source=FALSE）