用神经网络预测股票走势(2)

# 计算预测值和真实值之间的相关性：#

cor(compute(model,m_test[1:7])$net.result, m_test$PROFIT)

数值预测：2016年4月18日7个变量的收盘数据

todaydata=read.table("C:/Users/lenovo/Desktop/today.txt",header=F) compute(model,todaydata)$net.result