change mistyping in setwd()

subDir0 was the assigned sub directory in previous version of R code. Updated.