Skip to content

Instantly share code, notes, and snippets.

@jiapengjp
jiapengjp / speed.r
Last active December 17, 2015 09:32
library(functional)
input<-"upload_enriched.log"
upload<-read.table(input, header=T, sep=",")
grp<-aggregate(time ~ bulksize+bulkline+shard+concurrency+essize+esdoc+round, data=upload, FUN=min)
time2<-aggregate(time ~ round, data=upload, FUN=max)
grp$time2<-time2$time
grp$durationSec<-grp$time2 - grp$time + 10 # post began 10 seconds before (after buffer created)
grp$bytePerSec<-grp$essize / grp$durationSec
#!/bin/python
import csv
import datetime
import json
import os.path
esstats = []
shards = range(1, 11)
concurrencies = range(1,6)
package main
import (
"bufio"
"bytes"
"encoding/hex"
"fmt"
"io"
"io/ioutil"
"log"