Modification of a r code chuck