在学习《

R语言机器学习-实用案例

》第三章第5节的关联规则挖掘时，执行书中代码出现以下不明错误，请高手协助解决！
附本为练习的脚本文件！
......
> rules <- sort(rules, by="confidence", decreasing=TRUE)
> rules <- prune.dup.rules(rules)
> inspect(rules[1:5])
出错一：
Error in slot(x, s) : subscript out of bounds
In addition: Warning message:
In `[<-`(`*tmp*`, as.vector(i), value = NA) :
  x[.] <- val: x is “ngTMatrix”, val not in {TRUE, FALSE} is coerced; NA |--> TRUE.



......
> plot(rules,method="graph",interactive=TRUE,shading=TRUE)
出错二：

Error in plot.rules(rules, method = "graph", interactive = TRUE, shading = TRUE) :
  Shading measure not available in rule set: ‘TRUE’