Another Object Oriantation System in R