Sketch of comparison

library(Benchmark)
m1 = micro_readVcf()
m2 = micro_getVariantCalls()
m3 = micro_getVariantCalls(datasetId="4252737135923902652" )
m1[[1]]
m2[[1]]
m3[[1]]

Harness is a program that runs other programs. r varHarness = function( ranges, methods, times=5 ) { lapply(ranges, function(range) { lapply( methods, function(f) f(range, times) ) } ) } cloudReadVcf = function(range, times) { chr = as.character(seqnames(range)) start = start(range) end = end(range) micro_readVcf( chr=chr, start=start, end=end, times=times ) } cloudMeth = micro_readVcf_clo(s3_1kg("17")) localMeth = micro_readVcf_clo(...local file...) methodList = list(cloud=cloudMeth, local=localMeth) varHarness( GRanges("17", IRanges(16.05e6, widths=c(100, 500, 1000, 5000))), methodList, times=2 )



shwetagopaul92/benchmark documentation built on May 29, 2019, 9:58 p.m.