RDX2 X  plotIntersalt source (function (dset = intersalt1, figno = 2) { @ oldpar <- par(oma = c(6.5, 0, 0, 0), mar = par()$mar - c(0,  0, 3.5, 0))  on.exit(par(oldpar))  lowna <- c(4, 5, 24, 28) 7 plot(dset$na, dset$bp, pch = 15, ylim = c(50, 85), 7 xlab = "Median sodium excretion (mmol/24hr)", : ylab = "Median diastolic BP (mm Hg)", type = "n") 6 points(dset$na[-lowna], dset$bp[-lowna], pch = 16) < points(dset$na[lowna], dset$bp[lowna], pch = 1, lwd = 3) ! u <- lm(bp ~ na, data = dset) abline(u$coef[1], u$coef[2])  figtxt <- L paste("Fig. ", figno, ": Plot of median blood pressure versus salt", ? "\\n(measured by sodium excretion) for 52 human", D "\\npopulations. Four results (open circles) are for", K "\\nnon-industrialised societies with very low salt intake,", I "\\nwhile other results are for industrialised societies.",  sep = "") C mtext(side = 1, line = 6, figtxt, cex = 1.1, adj = 0, at = -20) }þý dset intersalt1 figno@þ { <- oldpar par oma c@þ mar - $ ÿþ ÿþ ÿ@ þþþþ on.exit ÿÿþþÿ lowna ÿ@@@8@<þþ plotÿÿ naþÿÿ bpþ pch@. ylim ÿ@I@U@þ xlab #Median sodium excretion (mmol/24hr) ylab Median diastolic BP (mm Hg) type nþ points [ÿÿÿþ ÿÿþþÿÿÿÿþ ÿÿþþÿ@0þÿÿÿÿÿþÿþÿÿÿÿþÿþÿ?ð lwd@þÿ u lm ~ÿÿþ dataÿþþ ablineÿÿÿ coefþ?ðþÿÿÿ!ÿþ@þþÿ figtxt paste Fig. ÿ +: Plot of median blood pressure versus salt -\n(measured by sodium excretion) for 52 human 2\npopulations. Four results (open circles) are for 9\nnon-industrialised societies with very low salt intake, 7\nwhile other results are for industrialised societies. sep þþ mtext side?ð line@"ÿ cex?ñ™™™™™š adj at ÿ@4þþþþ