A Sample R on R Application