Subversion Repositories bdplot

Rev

Rev 9 | Rev 15 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9 Rev 12
Line 151... Line 151...
151 
    }
 151 
    }
152 
    options(warn=0)
 152 
    options(warn=0)
153
153
154 
  }
 154 
  }
155 
  if(prm$draw.yaxis){ axis(2, mgp=prm$mgp.yaxis, lwd=prm$lwd) }
 155 
  if(prm$draw.yaxis){ axis(2, mgp=prm$mgp.yaxis, lwd=prm$lwd) }
156
156 
  ## axis to the right
- 
 
 157 
  if(prm$draw.raxis){ axis(4, mgp=prm$mgp.raxis, lwd=prm$lwd) }
157 
  ##Title stuff
 158 
  ##Title stuff
158 
  ## Hvorfor??
 159 
  ## Hvorfor??
159 
  scale <- 1
 160 
  scale <- 1
160 
  ##  if( prm$type=="hist" & !is.na(prm$xlab) )
 161 
  ##  if( prm$type=="hist" & !is.na(prm$xlab) )
161 
#  if( !is.na(prm$xlab)  ){ mtext(prm$xlab, line=prm$xlabLine, side=1, cex=prm$cex.lab/scale) }
 162 
#  if( !is.na(prm$xlab)  ){ mtext(prm$xlab, line=prm$xlabLine, side=1, cex=prm$cex.lab/scale) }
162 
  ##  if( prm$type=="hist" &!is.na(prm$ylab) )
 163 
  ##  if( prm$type=="hist" &!is.na(prm$ylab) )
163 
#  if( !is.na(prm$ylab)  ){ mtext(prm$ylab, line=prm$ylabLine, side=2, cex=prm$cex.lab/scale) }
 164 
#  if( !is.na(prm$ylab)  ){ mtext(prm$ylab, line=prm$ylabLine, side=2, cex=prm$cex.lab/scale) }
164 
  if( !is.na(prm$toplab) ){ mtext(prm$xxlab, side=3, line=0.25, cex=prm$cex.lab/scale) }
 165 
  if( !is.na(prm$toplab) ){ mtext(prm$toplab, side=3, line=0.25, cex=prm$cex.lab/scale) }
- 
 
 166 
  if( !is.na(prm$rightlab) ){
165 
  if( !is.na(prm$rightlab) ){ mtext(prm$yylab, side=4, line=0.25, cex=prm$cex.lab/scale) }
 167 
    mtext(prm$rightlab, side=4, line=0.75, cex=prm$cex.lab/scale,mgp=prm$mgp.raxis)
- 
 
 168 
##    mtext(rightlab, side=4, line=0.5, cex=bdp()$cex.lab,mgp=bdp()$mgp.raxis)
- 
 
 169 
  }
166 
}
 170 
}
167 
 
 171 
 
168 
 
 172 
 
169 
 
 173