R exercises session 12.R