Discussion :

[flourangel]

Bonjour,
J'essaie de construire un réseau de neurones en utilisant un ensemble de données : "train", mais j'ai obtenu une erreur que je n'ai pas comprise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
> library(deal)
 
Attachement du package : ‘deal’
 
The following object(s) are masked from ‘package:rpart’:
 
    post
 
Message d'avis :
le package ‘deal’ a été compilé avec la version R 2.15.2 
> #make copy of train
> ksl<-train
> #discrete cannot inherit from continuous so binary good/bad must be converted to numeric for deal package
> ksl$goodbad<-as.numeric(train$goodbad)
> #no missing values allowed so set any missing to 0
>  ksl$history[is.na(ksl$history1)] <- 0
Message d'avis :
In is.na(ksl$history1) :
  is.na() appliqué à un objet de type 'NULL' qui n'est ni une liste, ni un vecteur
>  #drops empty factors
>  ksl$property<-ksl$property[drop=TRUE]
> ksl.nw<-network(ksl)
> ksl.prior <- jointprior(ksl.nw) 
Imaginary sample size: 129600 
> ksl.nw <- learn(ksl.nw,ksl,ksl.prior)$nw
> result <- heuristic(ksl.nw,ksl,ksl.prior,restart=1,degree=1,trace=TRUE)
[Heuristic [Autosearch Erreur dans phi[[y]] : tentative de sélectionner moins d'un élément
> thebest <- result$nw[[1]]
Erreur : objet 'result' introuvable
> savenet(thebest, "ksl.net")
Erreur dans UseMethod("open") : 
  pas de méthode pour 'open' applicable pour un objet de classe "character"

J'espère que vous pouvez m'aider.
Merci d'avance.