added r files for App 1 and data