diff --git a/a3.r b/a3.r index c778e592f28ff6867369fd0498ce346f8e5892fd..80aa840234697765e444988a745999668c20120e 100644 --- a/a3.r +++ b/a3.r @@ -131,7 +131,7 @@ question_3_c <- function() { # Generate rules from apriori function. rules <- apriori(dataset, parameter=list(supp=0.3, conf=0.5)) - rules <- sort(rules, decreasing=TRUE, by="support") + rules <- sort(rules, decreasing=TRUE, by="lift") # Display all rules. catn('') diff --git a/a3_q3.png b/a3_q3_a.png similarity index 100% rename from a3_q3.png rename to a3_q3_a.png diff --git a/a3_q3_b.png b/a3_q3_b.png new file mode 100644 index 0000000000000000000000000000000000000000..0d86a6acb8ca4713a84c466aeaa400d32ceee9e6 Binary files /dev/null and b/a3_q3_b.png differ diff --git a/a3_q3_c.png b/a3_q3_c.png new file mode 100644 index 0000000000000000000000000000000000000000..aba52bac59b0e517556ef4c40475397ec4c397c5 Binary files /dev/null and b/a3_q3_c.png differ