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þþ