added R example 03