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 : Sélectionner tout - Visualiser dans une fenêtre à part
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)