updated analysis R