Change the zip directory to work directory

zipPath <- "D:/R/getdata_projectfiles_UCI HAR Dataset.zip"