remove setwd- open in Rproject