vec <- c(rnorm(1000), round(rnorm(1000)))
result <- qat_analyse_histogram_test_jsd_1d(vec, 50, 65, 100)
qat_plot_histogram_test(result$field, "test_jsd_1d", result$blocksize, result$numofbars,
result$factorofbar, "jsd", result$runs)
Run the code above in your browser using DataLab