R stuff added