A mask function to test if the dummy C code in src/bar.c works.
c_test(x)
x
a numeric vector
c_test(x) = x^2.
a numeric vector x^2
## Not run: x <- rnorm(10) c_test(x) ## End(Not run)