Plotting cumulative distribution of response times

responseplot.R

# plotter.R

mydata = read.csv("summaryzookeeper.csv")

mydatanozk = read.csv("summarynozk.csv")

nozk <- unlist(apply(mydatanozk, 1, function(x) rep(x[1], x[2])))

zookeeperdata <- unlist(apply(mydata, 1, function(x) rep(x[1], x[2])))


responsetime = zookeeperdata#$responsetime

par(xlog=FALSE)

summary(nozk)
sd(nozk)
summary(zookeeperdata)
sd(zookeeperdata)

library(Hmisc)
x <- c(nozk, zookeeperdata)
g <- c(rep('No ZooKeeper',length(nozk)),rep('ZooKeeper',length(zookeeperdata)))

Ecdf(x, group=g, 
	main="Response time distribution", 
	xlab='Response Time (ms) ',
	ylab = "percentile of requests",
	datadensity="none", 
	col=c('green', 'red'),
	label.curves=list(keys=1:2),
	#log="x",
	q=c(.50,.90,.999),
	xlim=range(0,5)
	)