RDX2 X  plotGaba source1 function (confound = TRUE) { $ figno <- as.numeric(confound) + 21 = oldpar <- par(cex = 1.1, mex = 1.2, mgp = c(2.25, 0.5, 0), 5 mar = par()$mar + c(4.5, 0, -3.5, 0))  on.exit(par(oldpar))  mr <- range(gaba$min) 5 tran <- range(gaba[, c("mbac","mpl","fbac","fpl")]) ^ plot(mr, tran, xlab = "Time post pentazocine (min)", ylab = "Reduction in VAS pain rating", 7 type = "n", xlim = c(0, 170), ylim = c(-3.5, 7)) B points(gaba$min, gaba$fbac, pch = 1, col = 8, lwd = 2, lty = 2,  type = "b") A points(gaba$min, gaba$fpl, pch = 0, col = 8, lwd = 2, lty = 2,  type = "b") E points(gaba$min, gaba$mbac, pch = 16, col = 8, lty = 2, type = "b") D points(gaba$min, gaba$mpl, pch = 15, col = 8, lty = 2, type = "b")  points(0, 0, pch = 0)  points(0, 0, pch = 1)  cwh <- par()$cxy 6 xy <- par()$usr[c(1, 4)] + c(cwh[1], -0.05 * cwh[2])  xy[2] <- xy[2] - 0.1 * cwh[2]  if (confound) ! legend("topright", ncol = 2, M pch = c(1, 16, 16, 0, 15, 15), lty=c(2,2,1,2,2,1), F col = c(8, 8, 1, 8, 8, 1), legend = c("females, baclofen", e "males, baclofen", "combined, baclofen", "females, placebo", O "males, placebo", "combined, placebo")) # else legend("topleft", ncol = 2, 6 pch = c(1, 16, 0, 15), col = c(8, 6, 8, ^ 6), legend = c("females, baclofen", "males, baclofen", S "females, placebo", "males, placebo"))  if (confound) { . bac <- (15 * gaba$fbac + 3 * gaba$mbac)/18 , plac <- (7 * gaba$fpl + 9 * gaba$mpl)/16 @ points(gaba$min, plac, pch = 15, lty = 1, col=1, type = "b") ? points(gaba$min, bac, pch = 16, lty = 1, col=1, type = "b") box()  } ! figtxt <- paste("Fig. ", figno, ? ": The effect of pentazocine on post-operative pain,\n", ? "with (circles) and without (squares) preoperatively\n", * "administered baclofen.", sep = "")  if (confound)  figtxt <- paste(figtxt, 9 " Also shown (solid black circles \n", P "& squares) is the combined result, obtained by averaging \n", ' "over all patients.") : mtext(side = 1, line = 7, figtxt, adj = -0.1, cex = 1.1) }þý confound þ { <- figno + as.numericÿþ@5þþÿ oldpar par cex?ñ™™™™™š mex?ó333333 mgp c@?àþ marÿ $ ÿþ marþÿ@ -@ þþþþþ on.exit ÿ ÿþþÿ mr rangeÿ gaba minþþþÿ tranÿ [ÿûÿ mbac mpl fbac fplþþþþ plotÿÿ xlab Time post pentazocine (min) ylab Reduction in VAS pain rating type n xlimÿ@e@þ ylimÿÿ@ þ@þþ pointsÿÿ minþÿÿ fbacþ pch?ð col@  lwd@ lty@ÿ bþÿÿÿ minþÿÿ fplþÿ ÿ@ !ÿ@"ÿ@ÿ bþÿÿÿ minþÿÿ mbacþÿ@0 ÿ@ "ÿ@ÿ bþÿÿÿ minþÿÿ mplþÿ@. ÿ@ "ÿ@ÿ bþÿÿþÿÿ?ðþÿ cwhÿ ÿþ cxyþþÿ xyÿÿÿ ÿþ usrþÿ?ð@þþÿÿ#ÿ?ðþ *ÿ?©™™™™™šþÿ#ÿ@þþþþþÿÿ$ÿ@þÿÿ$ÿ@þ%ÿ?¹™™™™™šÿ#ÿ@þþþþ ifÿ legend topright ncol@ÿÿ?ð@0@0@.@.þ"ÿÿ@@?ð@@?ðþ ÿÿ@ @ ?ð@ @ ?ðþ'ÿÿ females, baclofen males, baclofen combined, baclofen females, placebo males, placebo combined, placeboþþ'ÿ topleft(ÿ@ÿÿ?ð@0@.þ ÿÿ@ @@ @þ'ÿÿ females, baclofen males, baclofen females, placebo males, placeboþþþ&ÿÿÿÿ bac / (ÿ%ÿ@.ÿÿ fbacþþ%ÿ@ÿÿ mbacþþþþ@2þþÿ plac*ÿ+ÿÿ%ÿ@ÿÿ fplþþ%ÿ@"ÿÿ mplþþþþ@0þþÿÿÿ minþ,ÿÿ@."ÿ?ð ÿ?ðÿ bþÿÿÿ minþ)ÿÿ@0"ÿ?ð ÿ?ðÿ bþ boxþþþÿ figtxt paste Fig. ÿ 4: The effect of pentazocine on post-operative pain,  4with (circles) and without (squares) preoperatively  administered baclofen. sep þþ&ÿÿÿ.ÿ/ÿ.ÿ # Also shown (solid black circles  :& squares) is the combined result, obtained by averaging  over all patients.þþþ mtext side?ð line@.ÿ adjÿ?¹™™™™™šþ ÿ?ñ™™™™™šþþþ