R/i.plot_blank.R

In holland: Statistics for Holland's Theory of Vocational Choice

### blank square plot area -----------------------------------------------------
# func. by: jhheine@googlemail.com 
i.plot_blank <- function(gr=10){
  # gr <- 10
  # x.cent <- 0
  # y.cent <- 0
  plot.new()
  plot.window(xlim=c(-gr/2,gr/2), ylim=c(-gr/2,gr/2),asp=1)
}