Add materials for session 6 on R functions