First draft of case study 6 and its output

AdamWilsonLabEDU · Oct 8, 2024 · dba58e9 · dba58e9
1 parent ff3b6ed
commit dba58e9
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 0 deletions.
diff --git a/week_06/CS_06_nocomments.R b/week_06/CS_06_nocomments.R
@@ -0,0 +1,23 @@
+install.packages("ncdf4")
+
+library(terra)
+library(spData)
+library(tidyverse)
+library(sf)
+
+library(ncdf4)
+download.file("https://crudata.uea.ac.uk/cru/data/temperature/absolute.nc","crudata.nc", method="curl")
+
+# read in the data using the rast() function from the terra package
+tmean=rast("crudata.nc")
+plot(tmean)
+plot(max(tmean))
+
+data(world)
+max_temp_by_country <- terra::extract(tmean, world, fun = max, na.rm=T, small=T)
+head(max_temp_by_country)
+
+world_clim <- bind_cols(world, as_tibble(max_temp_by_country)[, -1])
+
+# Display the new combined data
+head(world_clim)
diff --git a/week_06/world_clim.png b/week_06/world_clim.png