################################################### ### code chunk number 3: Roptions ################################################### #options(width=165, prompt=" ", continue=" ") #options(useFancyQuotes = FALSE) set.seed(75645) #op <- par() #pjmar <- c(5.1, 5.1, 1.5, 2.1) ##pjmar <- par("mar") #options(SweaveHooks=list(fig=function() par(mar=pjmar, ps=12))) #pdf.options(onefile=F,family="Times",pointsize=12)