Cryptic object-orient R code4