我在包中使用了不同的神经网络包来进行预测。与nnet包一起使用的代码是
library(caret)
# training model using nnet method
data <- na.omit(data)
xtrain <- data[,c("temperature","prevday1","prevday2","prev_instant1","prev_instant2","prev_2_hour")]
ytrain <- dat
我用Caret拟合了R中的平均神经网络。请参阅下面的代码。术语平均值是否意味着平均值是基于1000个神经网络的结果?(因为在本例中有1000次迭代)
谢谢。
library(AppliedPredictiveModeling)
data(solubility)
### Create a control funciton that will be used across models. We
### create the fold assignments explictily instead of relying on the
### random number seed being set
简而言之,壳牌将解释代码;我试图通过在一天内创建24小时模型并整理数据中的结果来进行预测,frame.Basic问题无法再现#输出,即使在设置了seed.Please之后,任何人都可以帮助me.some自定义函数#和我制作的对象,其中没有随机性(仅供参考)。
f <- as.formula("actual~ lag.1 + last3.avg+monsoon+mon.thurs+wdaySaturday+wdaySunday+holiday
") #Defining the formula for neural network
require(d
所以我有一个数据集,我一直在上面执行机器学习算法。我已经在一个180 x 160的数据集上执行了MLR,逐步回归,SVM和随机森林。我正在对一个变量和159个其他变量进行建模,有179种情况。这都是回归建模。我已经使用了插入符号包,在这个包中,我使用训练函数对不同的机器学习算法进行了10次10次折叠交叉验证。我被告知阅读一篇使用神经网络模型的论文,并获得了更好的结果,所以我一直在尝试寻找一种方法来做同样的事情,但使用神经网络模型。
我已经做了以下几件事:
model <- train(RT..seconds.~., data = cadets, method = "AMORE
我正在使用R中的MLR包来拟合二进制问题的分类模型。对于每个模型,我使用"selectFeatures“函数与嵌入式特征选择执行交叉验证,并检索测试集上的平均AUC。接下来,我想检索每个折叠的测试集上的预测,但此函数似乎不支持这一点。我已经尝试将选定的预测器插入到“重采样”函数中以获取它。它可以工作,但性能指标不同,这不适合我的分析。如果可能的话,我也尝试过签入插入符号包,但是我还没有看到一个解决方案。你知道怎么做吗?
以下是我使用合成数据和尝试“重采样”函数的代码(再次声明:不适用于当前版本,因为性能指标不同)。
# 1. Find a synthetic dataset for s