is.closed invalid count about arules

[mhahsler]

Please send me code and data to reproduce the problem.

[clcazer]

is closed bug.xlsx
require(dplyr)
require(xlsx)

#read data
data <- read.xlsx("data/is closed bug.xlsx", sheetIndex = 1)

#divide dataset by category
Cat1 <- filter(data, cat=="A") %>% select(-cat)
Cat2 <- filter(data, cat=="C") %>% select(-cat)

#create transactions
trans1 <- as(Cat1, "transactions")
trans2 <- as(Cat2, "transactions")

#mine sets
sets1 <- apriori(trans1, parameter=list(support=1/length(trans1),
maxlen=4,
minlen=2,
target="frequent itemsets"))

sets2 <- apriori(trans2, parameter=list(support=1/length(trans2),
maxlen=4,
minlen=2,
target="frequent itemsets"))

inspect(sets1)
inspect(sets2)
#some sets are contained in both with count==1

is.closed(sets1) #no problems
is.closed(sets2) #invalid count error

#invalid count error occurs when count==1 in sets2 but not in sets1
is.closed(sets2[1])
is.closed(sets1[1])

[mhahsler]

Thank you for your example. I have fixed the rounding bug in the support count calculation. A fixed version is on GitHub. The bug fix will be part of the next CRAN release.

[clcazer]

Sorry but I still get the same error after downloading from github
install.packages("~/arules-master.zip", repos = NULL, type = "win.binary")

[mhahsler]

It probably takes a whole to rebuild.