Subversion Repositories bdplot

Rev

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

Rev 5 Rev 7
Line 50... Line 50...
50 
         ylim=ylim,
 50 
         ylim=ylim,
51 
         col=col,
 51 
         col=col,
52 
         main=main,
 52 
         main=main,
53 
         ...)
 53 
         ...)
54 
  } else if (is.numeric(x)){
 54 
  } else if (is.numeric(x)){
55 
    plot(x,
 - 
 
56 
         type=type,
 - 
 
57 
         xaxt="n", yaxt="n",
 - 
 
58 
         cex=cex.plot,
 - 
 
59 
         xlab=xlab,
 - 
 
60 
         ylab=ylab,
 - 
 
61 
         ylim=xlim,
 - 
 
62 
         col=col,
 - 
 
63 
         main=main,
 - 
 
64 
         ...)
 - 
 
65 
  }  else if(prm$method=="barplot"){
 55 
    if(prm$method=="barplot"){
66 
    barplot(height=x,
 56 
      barplot(height=x,
67 
            ## maybe these two are wrong/stupid?
 57 
              ## maybe these two are wrong/stupid?
68 
            cex.axis=prm$cex.lab,
 58 
              cex.axis=prm$cex.lab,
69 
            cex.names=prm$cex.lab,
 59 
              cex.names=prm$cex.lab,
- 
 
 60 
              col=bdp()$hcol,
70
61 
              border=border,
71 
            xlab=xlab,
 62 
              xlab=xlab,
72 
            ylab=ylab,
 63 
              ylab=ylab,
73 
            col=col,
 - 
 
74 
            main=main,
 64 
              main=main,
75 
            ...)
 65 
              ...)
76 
    prm$draw.xaxis <- FALSE
 66 
      prm$draw.xaxis <- FALSE
77 
    prm$draw.yaxis <- FALSE
 67 
      prm$draw.yaxis <- FALSE
78
68
- 
 
 69 
    } else {
- 
 
 70 
      plot(x,
- 
 
 71 
           type=type,
- 
 
 72 
           xaxt="n", yaxt="n",
- 
 
 73 
           cex=cex.plot,
- 
 
 74 
           xlab=xlab,
- 
 
 75 
           ylab=ylab,
- 
 
 76 
           ylim=xlim,
- 
 
 77 
           col=col,
- 
 
 78 
           main=main,
- 
 
 79 
           ...)
- 
 
 80 
    }
79 
  } else if( class(x) == "acf"){
 81 
  } else if( class(x) == "acf"){
80 
    ## Not cleaned up/checked
 82 
    ## Not cleaned up/checked
81 
    plot(x, xlab="", ylab="", xaxt="n", yaxt="n", cex=prm$cex.plot, xlim=prm$xlim, ylim=prm$ylim,col=col,...)
 83 
    plot(x, xlab="", ylab="", xaxt="n", yaxt="n", cex=prm$cex.plot, xlim=prm$xlim, ylim=prm$ylim,col=col,...)
82 
  }
 84 
  }
83 
  else if( class(x) == "histogram"){
 85 
  else if( class(x) == "histogram"){