added main.R
small revision to main.R