Récupérer des informations affiché sur la console

Bonjour,

J'utilise la fonction apriori du package arules

Code:

---

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:

---

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.

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.

Bonjour,

Code:

---

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:

---

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

---

Code:

---

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"

---

merci de votre aide.