added function 'layplot' as alias for 'par(mfrow=c(x,y))'