Neural Network avec le package Neuralnet
Bonjour,
J'essaye d'utiliser le package neuralnet pour effectuer une régression complexe.
Je n'arrivais pas à obtenir de résultats et j'ai donc décidé de faire un test sur un cas trivial ... mais là à nouveau surprise : il n'y a pas de convergence.
Je fais très certainement quelque chose de faux, mais je n'arrive pas à trouver. Merci d'avance pour votre aide.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
library("neuralnet")
# Load CSV and Remove Transfer with transfer price = 0
transferts <- read.csv("http://www.half-time.de/modules/einstellungen/download/transfer.csv",header=T, quote="\"", sep=",")
transferts <-transferts[transferts$t_price!=0,]
# neural network
expectedOutput <-transferts$p_keeper + transferts$p_defender
transfertsTEST <- cbind.data.frame(transferts$p_keeper, transferts$p_defender)
net.TSI <- neuralnet(expectedOutput ~ transferts$p_keeper + transferts$p_defender, data=transfertsTEST, hidden=10, threshold=0.01, lifesign = "full", lifesign.step = 1000) |
