setwd!

corrected code