setwd(scripts) bug fixed