※ 引述《asdfrtg (asdfrtg)》之銘言：
: [問題類型]:
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
: [軟體熟悉度]:
: 新手(沒寫過程式，R 是我的第一次)
: [問題敘述]:
: 我想用train這個指令進行模型選擇 可是跑出一大堆警告
: 並且所有出來的結果都是遺失值
: [程式範例]:
: library(neuralnet)
: library(nnet)
: library(lattice)
: library(ggplot2)
: library(caret)
: setwd("D:\\")
: Stock<-read.csv("real.csv",header=T)
: N<-nrow(Stock)
: set.seed(123)
: ind1<-sample(N,round(N*0.7))
: Train<-Stock[ind1,-1]
: Test<-Stock[-ind1,-1]
: st.net<-stock~usd.z+coffee.z+rice.z+oil.z+wheat.z+djopen.z+cu.z+corn.z
: model <- train(formula =st.net,data = Train,method="neuralnet", tuneGrid
: =data.frame(layer1=2:4,layer2=0, layer3=0),learningrate = 0.1, threshold =
: 0.1,stepmax =10000)
: https://imgur.com/rm3gifL
: [關鍵字]:
:
: 選擇性，也許未來有用
:
我用你的資料直接照你的程式碼下去測試基本上沒問題
不過st.net先as.formula
train函數裡面的擺的參數自己看一下套件文件再確定一下
不過我執行起來沒什麼問題 我測試時設了兩層神經層
st.net <- as.formula('stock ~
usd.z+coffee.z+rice.z+oil.z+wheat.z+dj.z+cu.z+corn.z')
modelst <- train(form = st.net,
data = traindata_real,
method = "neuralnet",
tuneGrid = expand.grid(.layer1 = c(2:4),
.layer2 = c(1:4),
.layer3 = c(0)),
learningrate = 0.01)