RDX2 X  .Last.projection sp_mercatorþ@V€@f€ names projection parameters orientationþ .Last.valueþ emacsÿ STERM editorþ .PostScript.Options default  Helvetica macRoman@( transparent black     defaultÿ paper horizontal width height family encoding pointsize bg fg onefile print.it append pagecentre commandþ .Provided .Random.seed y°¾FCPÜ .Tracebackþ .call loglm formula ~ ^ ( +ÿ Admit Genderþ Deptþþ@þþ data UCBAdmissionsþ .ess.lvsaveþ emacsÿ STERM editorþ .formula variables listÿÿÿþ factors  dim  dimnames Admit Gender Dept Admit Gender Dept Admit:Gender Admit:Dept Gender:Deptþ term.labels Admit Gender Dept Admit:Gender Admit:Dept Gender:Dept order  intercept  response  class terms formula .Environmentýþ ÿÿÿÿÿÿÿÿþÿþ :ÿÿþþ!ÿÿÿþþ!ÿÿÿþþþ .map.range@dÌ­@fRÀG³îàÀA3à .rdired.objects source function(objs) {  if (length(objs)==0)  "No objects to view!"  else { ' mode <- sapply(objs, function(my.x) { > eval(parse(text=(paste('data.class(',my.x,')',sep=''))))}) ) length <- sapply(objs, function(my.x) { 8 eval(parse(text=(paste('length(',my.x,')',sep=''))))  })  d <- data.frame(mode, length) 3 row.names(d) <- paste(' ', row.names(d), sep='')  d  } }þý objsûþ { if == length%ÿþþ No objects to view!&ÿ <- mode sapply%ÿ function my.xûþ&ÿ eval parse text ÿ paste data.class(.ÿ ) sep þþþþþ function(my.x) { = eval(parse(text=(paste('data.class(',my.x,')',sep=''))))}þþþ*ÿ)ÿ,ÿ%ÿ-ÿ.ÿûþ&ÿ/ÿ0ÿ1ÿ ÿ2ÿ length(.ÿ )3ÿ þþþþþ function(my.x) { 8 eval(parse(text=(paste('length(',my.x,')',sep=''))))  }þþþ*ÿ d data.frame+ÿ)ÿþþ*ÿ row.names4ÿþ2ÿ  6ÿ4ÿþ3ÿ þþ4ÿþþþ .required nlme .rpart.parms.2 ?ð¿ð?Ó333333ÿ uniform branch nspace minbranchþ .rpart.parms.3 ?ð¿ð?Ó333333ÿ uniform branch nspace minbranchþ .rpart.parms.4 ?ð¿ð?Ó333333ÿ uniform branch nspace minbranchþ .rpart.parms.5 ?ð¿ð?Ó333333ÿ uniform branch nspace minbranchþ Jobs@›`@›$@›”@›ˆ@›h@›|@›˜@›¼@›Ä@›¬@›t@›˜@›è@›à@›ü@œ @œ @œ@œX@œ,@œ@œh@œ”@œÀ@•X@•d@•@•p@•`@•|@•l@•€@•x@•Œ@•ˆ@•@•´@•Ð@–@–$@•ü@–@–0@–@–@– @–H@–p@ް@ލ@ŽÀ@ް@ލ@ޏ@ޏ@ޏ@ޏ@Ž˜@Žh@Ž˜@Žp@ލ@ŽÈ@ŽØ@ŽÐ@Ž @ޏ@ޏ@Žà@@Žð@8@´w@´q@´\@´f@´m@´i@´d@´`@´j@´@´„@´Š@´@´¬@´«@´³@´¢@´ž@´½@´ð@´Í@´è@´ã@´×@¨ø@© @¨î@¨ú@©@©@¨ô@©@©@©,@©@©2@©j@©r@©L@©L@©V@©@¨¾@©@¨þ@¨þ@¨ò@©@˜@@Ð@È@À@¨@¸@è@Ž@Ž@à@Ž@@ð@°@h@À@À@°@¸@È@ˆ@€@x@p  levels Alberta Atlantic BC Ontario Prairies Quebecÿ factorþÿ values ind6ÿ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144ÿ data.frameþ fossilfuel @œ @œè@°@žx@Ÿ@@ @K@€°@™x@¹Óÿ ÿþ Year Carbonþ g1.1$ÿ function(device=""){ & if(device!="")hardcopy(width=2.25, 6 height=2.25, device=device) G oldpar <- par(mar = c(4.1,4.1,1.1,1.1), pty="s", mgp=c(2.5,0.75,0))  on.exit(par(oldpar)) + Year <- c(1800, 1850, 1900, 1950, 2000) ' Carbon <- c(8, 54, 534, 1630, 6611)  plot(Carbon ~ Year, pch=16)  if(device!="")dev.off()  }þý$ device þ&ÿ'ÿ !=@ÿ þ hardcopy width@ height@@ÿ@ÿþþ*ÿ oldpar par mar c@ffffff@ffffff?ñ™™™™™š?ñ™™™™™šþ pty s mgpHÿ@?èþþþ on.exitFÿEÿþþ*ÿ YearHÿ@œ @œè@°@žx@Ÿ@þþ*ÿ CarbonHÿ@ @K@€°@™x@¹Óþþ plot ÿMÿLÿþ pch@0þ'ÿAÿ@ÿ þ dev.offþþþ g1.2$ÿ function(device=""){ @ if(device!="")hardcopy(device=device, width=2.3, height=2.3) > oldpar <- par(mar = c(4.1,4.1,1.1,1.1), mgp=c(2.5,0.75,0), ! cex.axis=0.875)  on.exit(par(oldpar))  attach(primates) % plot(x=Bodywt, y=Brainwt, pch=16, ; xlab="Body weight (kg)", ylab="Brain weight (g)", ' xlim=c(0,300), ylim=c(0,1500))  chw <- par()$cxy[1]  chh <- par()$cxy[2] 6 text(x=Bodywt, y=Brainwt+c(-.125,0,0,.125,0)*chh, + labels=row.names(primates), pos=4)  detach(primates)  if(device!="")dev.off()  }þý$@ÿ þ&ÿ'ÿAÿ@ÿ þBÿ@ÿ@ÿCÿ@ffffffDÿ@ffffffþþ*ÿEÿFÿGÿHÿ@ffffff@ffffff?ñ™™™™™š?ñ™™™™™šþJÿHÿ@?èþ cex.axis?ìþþKÿFÿEÿþþ attach primatesþNÿ x Bodywt y BrainwtOÿ@0 xlab Body weight (kg) ylab Brain weight (g) xlimHÿ@rÀþ ylimHÿ@—pþþ*ÿ chw [ $Fÿþ cxyþ?ðþþ*ÿ chh^ÿ_ÿFÿþ cxyþ@þþ1ÿUÿVÿWÿÿXÿ *Hÿ -?Àþ?Àþ`ÿþþ labels6ÿTÿþ pos@þ detachTÿþ'ÿAÿ@ÿ þPÿþþþBÿ$ÿ' 5function(width=3.75, height=3.75, color=F, trellis=F, = device=c("","pdf","ps"), path="~/r-book/ed2/Art/", & pointsize=c(8,4), horiz=F){  ## 1 x 1: 2.25" x 2.25"  ## 2 x 2: 2.75" x 2.75" D ## 3 x 3: 3.75" x 3.75" or 3.25" x 3.25" for simple scatterplots  ## 1 x 2: 4" x 2.25"  ## 2 x 3: 4" x 2.8"  ## 3 x 4: 4.5" x 3.25 ) if(!trellis)pointsize <- pointsize[1]  funtxt <- sys.call(1) @ fnam <- strsplit(as.character(funtxt), "(", fixed=T)[[1]][1] * dotsplit <- strsplit(fnam, "\\.")[[1]] , dotsplit[1] <- substring(dotsplit[1], 2) G prefix1 <- paste(if(nchar(dotsplit[1])==1)"0" else "", dotsplit[1],  sep="") G prefix2 <- paste(if(nchar(dotsplit[2])==1)"0" else "", dotsplit[2],  sep="") 3 suffix <- switch(device, ps=".eps", pdf=".pdf") = fnam <- paste(path, prefix1,"-", prefix2, suffix, sep="")  print(fnam)  dev.out <- device[1] 6 dev.fun <- switch(dev.out, pdf=pdf, ps=postscript)  if(trellis){  library(lattice) / trellis.device(file=fnam, device=dev.fun, # color = color, = width=width, height=height, horiz=horiz) R trellis.par.set(list(fontsize=list(text=pointsize[1], points=pointsize[2])))  } else  if (dev.out!=""){  print(c(width, height)) + dev.fun(file=fnam, paper="special",  horiz=horiz, C width=width, height=height, pointsize=pointsize[1])  }  }þý$Cÿ@$Dÿ@ color F trellisgÿ$@ÿHÿ  pdf psþ path ~/r-book/ed2/Art/ pointsizeHÿ@ @þ horizgÿþ&ÿ'ÿ !hÿþ*ÿjÿ^ÿjÿ?ðþþþ*ÿ funtxt sys.call?ðþþ*ÿ fnam^ÿ [[ strsplit as.charactermÿþ ( fixed Tþ?ðþ?ðþþ*ÿ dotsplitpÿqÿoÿ \.þ?ðþþ*ÿ^ÿuÿ?ðþ substring^ÿuÿ?ðþ@þþ*ÿ prefix12ÿ'ÿ(ÿ nchar^ÿuÿ?ðþþ?ðþ 0 þ^ÿuÿ?ðþ3ÿ þþ*ÿ prefix22ÿ'ÿ(ÿxÿ^ÿuÿ@þþ?ðþ 0 þ^ÿuÿ@þ3ÿ þþ*ÿ suffix switch@ÿ ps .eps pdf .pdfþþ*ÿoÿ2ÿiÿwÿ -yÿzÿ3ÿ þþ printoÿþ*ÿ dev.out^ÿ@ÿ?ðþþ*ÿ dev.fun{ÿÿ}ÿ}ÿ|ÿ postscriptþþ'ÿhÿ&ÿ library latticeþ trellis.device fileoÿ@ÿ€ÿfÿfÿCÿCÿDÿDÿkÿkÿþ trellis.par.setÿ fontsizeÿ1ÿ^ÿjÿ?ðþ points^ÿjÿ@þþþþþ'ÿAÿÿ þ&ÿ~ÿHÿCÿDÿþþ€ÿ…ÿoÿ paper specialkÿkÿCÿCÿDÿDÿjÿ^ÿjÿ?ðþþþþþþþ