Updated R Code
updated