the code used in the RSeries in my Blog