Discussion :

[pitchu]

Bonjour,

J'utilise la fonction apriori du package arules

Code :

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

1
2
 
var <- apriori(Jeu_de_donnée, parameter = list(supp= SUPP, conf= CONF))

dans la console il y a ceci qui s'affiche:

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
 
Apriori
 
Parameter specification:
 confidence minval smax arem  aval originalSupport maxtime
          1    0.1    1 none FALSE            TRUE       5
 support minlen maxlen target   ext
     0.1      1     10  rules FALSE
 
Algorithmic control:
 filter tree heap memopt load sort verbose
    0.1 TRUE TRUE  FALSE TRUE    2    TRUE
 
Absolute minimum support count: 1105 
 
set item appearances ...[0 item(s)] done [0.00s].
set transactions ...[60 item(s), 11055 transaction(s)] done [0.02s].
sorting and recoding items ... [57 item(s)] done [0.01s].
creating transaction tree ... done [0.01s].
checking subsets of size 1 2 3 4 5 6 done [17.69s].
writing ... [75688 rule(s)] done [1.15s].
creating S4 object  ... done [0.24s].

Je voudrais savoir comment récupérer ces infos ? Par exemple je voudrais récupérer tous les temps.

[Theta]

Tu peux récupérer la sortie console avec la fonction capture.output.

Du coup tu te retrouves avec une chaîne de caractères dont tu peux extraire ce que tu veux avec des expressions régulières.

[pitchu]

Bonjour,

Code :

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

1
2
3
4
 
> output <- capture.output( apriori(Jeu_de_donnée, parameter = list(supp= SUPP, conf= CONF)) )
> output[16]
set item appearances ...[0 item(s)] done [0.00s].

Je suis vraiment nul pour construire une expression régulière ^^.
Pour récupérer le temps de la ligne 16 , j'ai pensé partir de l'avant dernier caractère "]" et de prendre tout sauf la lettre "s" jusqu'au caractère "["

je ne vois pas comment on dit: de tel caractère à tel caractère.

Code :

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

1
2
 
grep("^s[:digit:.]" ,output[16])

[Theta]

Code :

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

1
2
3
4
> str="set item appearances ...[0 item(s)] done [0.00s]"
> pattern = "^.*\\[([0-9\\.]+)s\\].*$"
> sub(pattern, "\\1", str)
[1] "0.00"

[pitchu]

merci de votre aide.