added simple r analysis