Some basic R codes