FilesExpand file tree

 master

/

plot.R

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

executable file

·

86 lines (64 loc) · 2.16 KB

 master

/

plot.R

Copy path

Top

File metadata and controls

• Code
• Blame

executable file

·

86 lines (64 loc) · 2.16 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

#!/usr/bin/env Rscript

# To use this script you'll need to install R: http://www.r-project.org/

# and a library for R called ggplot2

# Which can be done by starting R and typing install.packages("ggplot2")

# like this:

#

# shell% R

# R version 2.11.0 beta (2010-04-12 r51689)

# > install.packages("ggplot2")

# (follow prompt)

#

# Then you can try this script by providing a full path to .data file

# outputed from 'make bench'

#

# > cd ~/src/node

# > make bench

# ...

# > ./benchmark/plot.R .benchmark_reports/ab-hello-world-buffer-1024/ff456b38862de3fd0118c6ac6b3f46edb1fbb87f/20101013162056.data

#

# This will generate a PNG file which you can view

#

#

# Hopefully these steps will be automated in the future.

library(ggplot2)

args <- commandArgs(TRUE)

ab.load <- function (filename, name) {

raw <- data.frame(read.csv(filename, sep="\t", header=T), server=name)

raw <- data.frame(raw, time=raw$seconds-min(raw$seconds))

raw <- data.frame(raw, time_s=raw$time/1000000)

raw

}

#ab.tsPoint <- function (d) {

# qplot(time_s, ttime, data=d, facets=server~.,

# geom="point", alpha=I(1/15), ylab="response time (ms)",

# xlab="time (s)", main="c=30, res=26kb",

# ylim=c(0,100))

#}

#

#ab.tsLine <- function (d) {

# qplot(time_s, ttime, data=d, facets=server~.,

# geom="line", ylab="response time (ms)",

# xlab="time (s)", main="c=30, res=26kb",

# ylim=c(0,100))

#}

filename <- args[0:1]

data <- ab.load(filename, "node")

# histogram

#hist_png_filename <- gsub(".data", "_hist.png", filename)

hist_png_filename <- "hist.png"

png(filename = hist_png_filename, width = 480, height = 380, units = "px")

qplot(ttime, data=data, geom="histogram",

main="xxx",

binwidth=1, xlab="response time (ms)",

xlim=c(0,100))

print(hist_png_filename)

# time series

#ts_png_filename <- gsub(".data", "_ts.png", filename)

ts_png_filename = "ts.png"

png(filename = ts_png_filename, width = 480, height = 380, units = "px")

qplot(time, ttime, data=data, facets=server~.,

geom="point", alpha=I(1/15), ylab="response time (ms)",

xlab="time (s)", main="xxx",

ylim=c(0,100))

print(ts_png_filename)