Implementing Custom Indexing for data.table Objects in R using S4 Classes

Understanding the Learning Curve Dat Function in R with Error: $ Operator Not Defined for This S4 Class