R markdown assignment