added r presentation