added analysis r file