The following change were made:
- comment every call to the par() function
- create the splitted figure for plots with layout() instead of par()