RDX2 X  compareGaba source function(min=30, device=""){ 9if(device!="")trellis.device(pdf, width=3.5, height=2.05, I file="~/courses/dm/dmcourse/Art/gaba30.pdf") 2## gabalong <- stack(gaba[c(2,5,8),], select=-min) '## gabalong$min <- rep(c(30,90,150), 6) 1gabalong <- stack(gaba[paste(min),], select=-min) gabalong$sex <- gabalong$ind @levels(gabalong$sex) <- rep(c("all", "female","male"), rep(2,3)) $gabalong$sex <- factor(gabalong$sex) "gabalong$treatment <- gabalong$ind Alevels(gabalong$treatment) <- rep(c("Baclofen","No baclofen"), 3) print( 6stripplot(sex~values, groups=treatment, data=gabalong, Q par.settings=list(superpose.symbol=list(cex=c(1.35,1.35), pch=c(16,16), > col=c("darkblue","turquoise"))), 9 xlab=list("Average reduction: 30 min vs 0 min",  cex=1.0),  scales=list(cex=1.0), " panel=function(x,y,...){ $ panel.stripplot(x,y,...) ? ltext(x,y,paste(c(3,9,15,7,22,12)), pos=1, cex=0.8) < }, auto.key=list(columns=2, points=TRUE, cex=1.0)) ) ;## plot(rep(c(30, 90, 150),6), unlist(gaba[c(2,5,8), 2:7]), ,## pch=rep(c(16,15,1,0,16,15),rep(3,6)), +## col=rep(c("gray","black"), c(12,6)), +## xlab="Reduction in VAS pain rating") ;## text(rep(c(30, 90, 150),6), unlist(gaba[c(2,5,8), 2:7]), @## labels=rep(c(paste(c(3,15,9,7)),12,22), rep(3,6)), pos=4) if(device!="")dev.off() gabalong }þý min@> device þ { if !=ÿ þ trellis.device pdf width@  height@ffffff file $~/courses/dm/dmcourse/Art/gaba30.pdfþþ <- gabalong stack [ gaba pasteÿþûþ select -ÿþþþ ÿ $ÿ sexþÿÿ indþþ ÿ levelsÿÿ sexþþ rep c all female maleþÿ@@þþþ ÿÿÿÿþ factorÿÿ sexþþþ ÿÿÿ treatmentþÿÿ indþþ ÿÿÿÿ treatmentþþÿÿ Baclofen No baclofenþ@þþ print stripplot ~ÿ valuesþ groupsÿ dataÿ par.settings list superpose.symbol#ÿ cexÿ?õ™™™™™š?õ™™™™™šþ pchÿ@0@0þ colÿ darkblue turquoiseþþþ xlab#ÿ "Average reduction: 30 min vs 0 min%ÿ?ðþ scales#ÿ%ÿ?ðþ panel function$ xû$ yû ...ûþÿ panel.stripplot,ÿ-ÿ.ÿþ ltext,ÿ-ÿÿÿ@@"@.@@6@(þþ pos?ð%ÿ?é™™™™™šþþ function(x,y,...){ $ panel.stripplot(x,y,...) ? ltext(x,y,paste(c(3,9,15,7,22,12)), pos=1, cex=0.8) }þ auto.key#ÿ columns@ points %ÿ?ðþþþÿÿÿ þ dev.offþþÿþþ