added "premail" function and renamed the .R file