started base.R script for building connection