Relative Error of Bandwidth Estimate Based On Flow Sample

fsvsbs.r

fsvsbs <- read.csv("~/fsvsbs.csv", sep=";")
fsvsbs$rel_err = fsvsbs$rel_err*100
plot( 
  fsvsbs$rel_err ~ fsvsbs$delta, 
  xlab="Step / Sub-range Length (sec)", 
  ylab="Relative Error (%)", 
  main="Relative Error of Bandwidth Estimate Based On Flow Sample")
nls_fit <- nls(rel_err ~ a + b * delta^(-c), fsvsbs, start = list(a = 43, b = 4, c = 0.2))
lines(fsvsbs$delta, predict(nls_fit), col="red",lwd=3)