From 665550ae50f5ed531cfe1bf0a60ba035ad82ce84 Mon Sep 17 00:00:00 2001 From: acastellanos39 Date: Mon, 6 Jun 2022 16:32:11 -0400 Subject: [PATCH] Updated to speed up Edited out some lines that are no longer needed with the change in environmental data --- attachAustraliaEnv.R | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/attachAustraliaEnv.R b/attachAustraliaEnv.R index 0318a5d..c0e420a 100644 --- a/attachAustraliaEnv.R +++ b/attachAustraliaEnv.R @@ -58,12 +58,12 @@ attachAustraliaEnv <- function(points, path = getwd(), variables = c("all"), yea } })) }) - RAST1 <- do.call(c, VALS[c(1:5, 7, 11)]) - RAST2 <- do.call(c, VALS[c(6, 9:10)]) - RAST3 <- VALS[[8]] - RAST1 <- crop(RAST1, RAST2) - RAST3 <- resample(RAST3, RAST1[[1]]) - VALS <- c(RAST1, RAST2, RAST3) + #RAST1 <- do.call(c, VALS[c(1:5, 7, 11)]) + #RAST2 <- do.call(c, VALS[c(6, 9:10)]) + #RAST3 <- VALS[[8]] + #RAST1 <- crop(RAST1, RAST2) + #RAST3 <- resample(RAST3, RAST1[[1]]) + VALS <- do.call(c, VALS) retn <- data.frame(terra::extract(VALS, pnt)) colnames(retn) <- c("ID", "temp_max", "tempMax_2mon", "tempMax_3mon", "tempMax_6mon", "tempMax_9mon", "tempMax_12mon",