fixed R problem
fixed R problem