R analysis addition