vec <- array(rnorm(1000), c(100, 20))
vec[51:100, ] <- round(vec[51:100, ])
result <- qat_analyse_histogram_test_kld_2d(vec, 4, 65, 100)
qat_plot_histogram_test(result$field, "test_kld_2d", result$blocksize,
result$numofbars, result$factorofbar, "kld", result$runs)
Run the code above in your browser using DataCamp Workspace