An inplementation of the CRC-SPIN model in R using the "reference class" object system