renamed and retangled R scripts