Initial commit 2

In R code: "source()" was broken