rbtdel_bf

##find best C value
jpeg('RBTDelete_bf.jpeg')
d <- read.table('RBTDelete.txt')
tsize=d[,1];rtime=d[,2]
CC=rtime/log2(tsize)
minvar=10^9;minC=0
for (i in 1:length(tt)){
rtt=CC[i]*log2(tsize);dtt=rtt-rtime;tvar=sum(dtt^2);
if(tvar<minvar) {minvar=tvar;minC=CC[i]}
}
M=minC
logPlot=M*log2(d[,1])
plot(d, main="RBTDelete", pch=24,cex=0.4,xlab="Treesize", ylab="Time (ms)",ylim=c(min(logPlot),max(logPlot,d[,2])));
lines(d[,1], logPlot, col='red')
legend("bottomright", "Expected runtime", lty=1, col="red")
dev.off()