initial work on first ex R scripts