A demo R package incorporating C code which is called with .Call() - View it on GitHub