added R example 2