code is done

works smoothly and comments are ok.
comment-out setwd()