Find the value of the J-measure for the sixth rule from Figure 12.5. The R Zone #

Find the value of the J-measure for the sixth rule from Figure 12.5.

Transcribed Image Text:

The R Zone # Read in the Adult data set dat <- read.csv(file = "C:/... /adult.txt". stringsAsFactors=TRUE) # Install and load the required package install.packages("arules") library (arules) # Make the Factors into a Transaction object testing <-as(dat[,-c(1, 3, 4, 5, 7, 8, 9, 11, 12, 13, 14)], "transactions") # Run the program, view the output sorted by support rules <- apriori(testing. parameter = list(supp = 0.15. conf = 0.80, maxlen = 3)) inspect(sort(rules))