vec <- c(rnorm(1000), rnorm(1000)+1)
workflowlist_part <- list(blocksize=50, numofbars=65, metric="emd")
resultlist <- qat_call_histogram_test(vec, workflowlist_part, element=1)
savelist <- qat_save_histogram_test(resultlist[[2]])
Run the code above in your browser using DataLab