Added Nathan's functions:
- emulation.R
- meanFunctions.R