Discussion :

[pitchu]

bonjour,

Je dois faire une table de contingence motif x classe d'un jeu de donnée après avoir appliqué la fonction apriori() sur ce jeu de donnée

un aperçu du jeu:



Pour l'instant j'ai essayé de faire à la main la table de contingence de {Alcohol=[1.0,1.5)} x {class=[1.5,2.0]} .
Donc X = {Alcohol=[1.0,1.5)} et Y = {class=[1.5,2.0]}
Mais il semblerait que mes valeurs ne soient pas les bonnes.

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
 
 
# total
allClass <- subset(S_dataWine, subset = rhs %in% "class=[1.5,2.0]" | rhs %in% "class=[1.0,1.5)")
dataFrame_allClass <- DATAFRAME(allClass)
sum_allClass <- sum(dataFrame_allClass$count)
 
# Récupération des valeur 
class_1520_dataWine <- subset(S_dataWine, subset = rhs %in% "class=[1.5,2.0]")
class_1015_dataWine <- subset(S_dataWine, subset = rhs %in% "class=[1.0,1.5)")
 
# la classe 1.5,2.0
dataFrame_class_1520_dataWine <- DATAFRAME(class_1520_dataWine)
sum_classe1520 <- sum(dataFrame_class_1520_dataWine$count)
 
# la classe 1.0, 1.5
dataFrame_class_1015_dataWine <- DATAFRAME(class_1015_dataWine)
sum_classe1015 <- sum(dataFrame_class_1015_dataWine$count)
#sum_class1015 <- sum_allClass - sum_classe1520
 
# Alcohol
alcohol1015 <- subset(S_dataWine, subset = lhs %in% "Alcohol=[1.0,1.5)")
dataFrame_alcohol1015 <- DATAFRAME(alcohol1015)
sum_alcohol1015 <- sum(dataFrame_alcohol1015$count)

Résultat

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
> sum_classe1520
[1] 6225
 
> sum_classe1015
[1] 244
 
> sum_allClass
[1] 6469
 
> sum_alcohol1015
[1] 5463

Table de contingence {Alcohol=[1.0,1.5)} x {class=[1.5,2.0]}

		Y: class 1.5,2.0		!Y: !class 1.5,2.0 = class 1.0,1.5
X: {Alcohol=[1.0,1.5)}	1.1	41	1.2	sum_alcohol1015 - sum_classe1015
!X: !{Alcohol=[1.0,1.5)}	2.1	sum_classe1520 - 1.1	2.2	sum_allClass - (1.1+1.2+2.1)

j'ai fais un petit dessin aussi ^^.