Changed setwd and added source

Trying to dynamically link to Cornelius’ women.R