Ошибка при попытке сложить растровые слои

Question

Я использую код, разработанный кем-то. Я пытаюсь создать растровый стек. Когда я запускаю код, он дает мне эту ошибку

Ошибка в .local (.Object, ...): Ошибка в .rasterObjectFromFile (x, band = band, objecttype = "RasterLayer",: Невозможно создать объект RasterLayer из этого файла. (файл не существует)

gcmDir <- "C:\\Users\\sangay\\Documents\\Eco Crop Modelling\\Future Scenario\\Results\\RCP8.5\\analyses\\runs-future" # directory where different results exists that are to be ensembled
outFolder <- "C:\\Users\\sangay\\Documents\\Eco Crop Modelling\\Future Scenario\\Results\\RCP8.5Assembled" # directory to save results
rsn <- "MaizeAssembled" # full name of the results to be ensembled

if (!file.exists(outFolder)) {dir.create(outFolder)}

gcmList <- list.files(gcmDir)
for (gcm in gcmList) {
    cat(gcm, "/n")
    rDir <- paste(gcmDir, "/", gcm, sep="") # gcm location for future data
    rs <- raster(paste(rDir, "/", rsn, ".tif", sep=""))
    if (gcm == gcmList[1]) {
        gcmstack <- c(rs)
    } else {
        gcmstack <- c(gcmstack, rs)
    }
}

###I am including the error below:
*bcc_csm1_1 /n
Error in .local(.Object, ...) : 
Error in .rasterObjectFromFile(x, band = band, objecttype =   "RasterLayer",  : 
Cannot create a RasterLayer object from this file. (file does not exist)
gcmstack <- stack(gcmstack)*

## again the code starts below:
# Stack averages
avg <- mean(gcmstack)

#Stack standar deviation
fun <- function(x) { sd(x) }
std <- calc(gcmstack, fun)


avg <- writeRaster(avg, paste(outFolder, "/", rsn, "_avg.asc", sep=""),        format="ascii", overwrite=T)
std <- writeRaster(std, paste(outFolder, "/", rsn, "_std.asc", sep=""), format="ascii", overwrite=T)

Может кто-нибудь помочь мне решить эту проблему? Я попробовал себя, но ничего не могу понять. Я новичок в R.

Спасибо большое !!!