adding analysis R scripts