Added R file protoype