Create ETofData.R

Start R file which will contain ET(L).