adding test harness R scripts