Subversion Repositories bdplot

Rev

Rev 62 | Rev 68 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 62 Rev 66
Line 226... Line 226...
226 
         ...)
 226 
         ...)
227 
  } else if (class(x)=="lm") {
 227 
  } else if (class(x)=="lm") {
228 
    print("lm mode. This is experimental, mar and oma are set to fixed values.")
 228 
    print("lm mode. This is experimental, mar and oma are set to fixed values.")
229 
    par(mar=c(2,2,2,.3))
 229 
    par(mar=c(2,2,2,.3))
230 
    par(oma = c(0, 0, 0, 0))
 230 
    par(oma = c(0, 0, 0, 0))
231 
    par(cex=0.4)
 231 
    par(cex=bdp()$cex.plot)
232 
    ### cex.caption is the title over each plot, cex.id magnification of point labels. What is eg "Cook's distance" written inside the plots?
 232 
    ### cex.caption is the title over each plot, cex.id magnification of point labels. What is eg "Cook's distance" written inside the plots?
233 
    plot.lm(x,cex.caption=cex.sub,cex.id=.5)##,cex=cex.plot)
 233 
    plot.lm(x,cex.caption=cex.sub,cex.id=.5)##,cex=cex.plot)
234 
  }  else if (class(x)=="data.frame") {
 234 
  }  else if (class(x)=="data.frame") {
235 
    print("data.frame mode")
 235 
    print("data.frame mode")
236 
    plot(x,main=main,
 236 
    plot(x,main=main,
Line 314... Line 314...
314 
  options(warn=0)
 314 
  options(warn=0)
315 
 
 315 
 
316 
 
 316 
 
317 
  ##Title stuff
 317 
  ##Title stuff
318 
  ## Hvorfor??
 318 
  ## Hvorfor??
319 
  scale <- 1.4
 319 
  scale <- 1.1
320 
 
 320 
 
321 
  if( !is.na(prm$tlab) ){
 321 
  if( !is.na(prm$tlab) ){
322 
    mtext(prm$tlab, side=3, line=0.25, cex=prm$cex.lab/scale)
 322 
    mtext(prm$tlab, side=3, line=0.25, cex=prm$cex.lab/scale)
323 
  }
 323 
  }
324 
  if( !is.na(prm$rlab) ){
 324 
  if( !is.na(prm$rlab) ){