bf.graphs.R

kasterma — Jun 9, 2014, 10:37 AM

source("bloomfilter.R")

library(ggplot2)

bf <- new.bloomfilter(1000, 3)
already.in <- rep(FALSE, 1000)
frac <- rep(0, 1000)

for (i in seq(1000)) {
  already.in[i] <- check.bloomfilter(bf, i)
  bf <- add.bloomfilter(bf, i)
  frac[i] <- frac.filled(bf)
}

ggplot(data.frame(i=seq(1000), al=cumsum(already.in), f=frac), aes(x=i,y=al)) + geom_point()

ggplot(data.frame(i=seq(1000), al=cumsum(already.in), f=frac), aes(x=i,y=f)) + geom_point()

get.fracs.filled <- function (size, denom) {
  fill <- size/denom
  frac <- rep(0,length(size))

  for(i in seq(along=size)) {
    bf <- new.bloomfilter(size[i], 3)
    for (j in seq(fill[i])) {
      bf <- add.bloomfilter(bf, j)
    }
    frac[i] <- frac.filled(bf)
  }
  frac
}

size <- c(10,50,100,500,1000,5000,10000,50000,100000)
frax <- get.fracs.filled(size, 4)

ggplot(data.frame(x=seq(along=frax), y=frax), aes(x=x, y=y)) + geom_point() + ylim(c(0,1))

frax <- get.fracs.filled(size, 2)
ggplot(data.frame(x=seq(along=frax), y=frax), aes(x=x, y=y)) + geom_point() + ylim(c(0,1))