度数分布的なCSVファイルからヒストグラム表示用のベクトルを取得する

gistfile1.txt

freq.vec <- function(csv, xs = 0, xe = 0) {
  d <- read.csv(csv)
  vars <- d[[1]]
  # if default, apply min and max of vars
  xs <- ifelse(xs == 0, min(vars), xs)
  xe <- ifelse(xe == 0, max(vars), xe)
  d.ext <- d[vars >= xs & vars <= xe, ]
  rep(d.ext[[1]], d.ext[[2]])
}