inst/benchmarks/bench-entropy.R

library(FSelectorRcpp)
library(entropy)
library(microbenchmark)

x <- as.integer(rnorm(1000, mean = 1000, sd = 5))
microbenchmark(entropy(table(x)), FSelectorRcpp:::fs_entropy1d(x))

Try the FSelectorRcpp package in your browser

Any scripts or data that you put into this service are public.

FSelectorRcpp documentation built on April 28, 2023, 5:07 p.m.