我正在准备关于 R 中数据挖掘算法的讲座，我想在其中演示著名的Apriori 算法。

我的问题
有人能指出我在 R 中这个算法的简单实现吗？

（我不是在寻找一个包，例如 arules，而是从头开始寻找可理解的实现源代码。查看 arules 的源代码也无济于事：它只是调用算法的 C 实现！）