|
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 |
#------------------- # Reglas de Asociacion #------------------- library(arules) #Informacion de compras data(Groceries) #Crear un grafico de frecuencia para los 20 mayores productos. itemFrequencyPlot(Groceries, topN=20, type="absolute") #Obtener las reglas rules <- apriori(Groceries, parameter = list(supp = 0.001, conf = 0.8)) #Mostrar las 5 mayores reglas, pero solo 2 digitos options(digits=2) inspect(rules[1:5]) #Ordenar las reglas por confianza rules <- sort(rules, by="confidence", decreasing=TRUE) inspect(rules[1:5]) #Reglas con un largo no mayor a 3 rules <- apriori(Groceries, parameter = list(supp = 0.001, conf = 0.8, maxlen=3)) inspect(rules[1:5]) |
