Subversion Repositories bdplot

Rev

Rev 5 | Rev 8 | Go to most recent revision | Show entire file | Ignore 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,
 55 
    if(prm$method=="barplot"){
56 
         type=type,
 56 
      barplot(height=x,
- 
 
 57 
              ## maybe these two are wrong/stupid?
57 
         xaxt="n", yaxt="n",
 58 
              cex.axis=prm$cex.lab,
58 
         cex=cex.plot,
 59 
              cex.names=prm$cex.lab,
59 
         xlab=xlab,
 60 
              col=bdp()$hcol,
60 
         ylab=ylab,
 61 
              border=border,
61 
         ylim=xlim,
 62 
              xlab=xlab,
62 
         col=col,
 63 
              ylab=ylab,
63 
         main=main,
 64 
              main=main,
64 
         ...)
 65 
              ...)
- 
 
 66 
      prm$draw.xaxis <- FALSE
65 
  }  else if(prm$method=="barplot"){
 67 
      prm$draw.yaxis <- FALSE
- 
 
 68
- 
 
 69 
    } else {
66 
    barplot(height=x,
 70 
      plot(x,
67 
            ## maybe these two are wrong/stupid?
 71 
           type=type,
68 
            cex.axis=prm$cex.lab,
 72 
           xaxt="n", yaxt="n",
69 
            cex.names=prm$cex.lab,
 73 
           cex=cex.plot,
70
74 
           xlab=xlab,
71 
            xlab=xlab,
 75 
           ylab=ylab,
72 
            ylab=ylab,
 76 
           ylim=xlim,
73 
            col=col,
 77 
           col=col,
74 
            main=main,
 78 
           main=main,
75 
            ...)
 79 
           ...)
76 
    prm$draw.xaxis <- FALSE
 - 
 
77 
    prm$draw.yaxis <- FALSE
 - 
 
78
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"){
Line 105... Line 107...
105 
    image.plot(x=x,y=y,z=z,
 107 
    image.plot(x=x,y=y,z=z,
106 
               xlab=xlab,
 108 
               xlab=xlab,
107 
               ylab=ylab,
 109 
               ylab=ylab,
108 
               ...)
 110 
               ...)
109 
  }
 111 
  }
110 
 
 112
111 
  ## We could make default values for grid.v og grid.h. Man maa kunne lave noget kvalificeret ud fra range og noget heltalsdivision
 113 
  ## We could make default values for grid.v og grid.h. Man maa kunne lave noget kvalificeret ud fra range og noget heltalsdivision
112
114
113 
  ##Grid stuff
 115 
  ##Grid stuff
114 
  if( prm$grid ){
 116 
  if( prm$grid ){
115 
    grid(col=prm$grid.col)
 117 
    grid(col=prm$grid.col)