RStudio
require(Hmisc) getRs('observerVariability.r', put='source')
getRs('observerVariability_example.r')