r vcjr