Merge pull request #16 from alaska-groundfish-efh/dev

change CRS to 3338 forAKGF density plot. This resolves #15
alaska-groundfish-efh · Aug 14, 2023 · f260e96 · f260e96
2 parents 4d1d082 + 075e1f7
commit f260e96
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/Functions_akgfmaps.R b/R/Functions_akgfmaps.R
@@ -375,7 +375,8 @@ MakeAKGFDensityplot <- function(region,
     # convert the raster to ggplot format
     density.dat <- data.frame(lat = density.dat0$y, lon = density.dat0$x, density = vals)
 
-    density.sf0 <- sf::st_as_sf(x = subset(density.dat, is.na(density) == F), coords = c("lon", "lat"), crs = density.map@crs)
+    density.sf0 <- sf::st_as_sf(x = subset(density.dat, is.na(density) == F),
+                                coords = c("lon", "lat"), crs = 3338) #formerly crs = density.map@crs
     density.sf <- sf::st_transform(density.sf0, sf::st_crs(MAP$akland))
   }
 

diff --git a/vignettes/BasicsOfFiveYearReview.Rmd b/vignettes/BasicsOfFiveYearReview.Rmd
@@ -139,7 +139,7 @@ maxnet.effects <- GetMaxnetEffects(
 
 We could go through and get deviance and variance estimates for the model now, but it's better to wait and see which models actually are included in the ensemble, in order to save on processing time.
 
-# Cloglong paGAM
+# Cloglog paGAM
 
 ```{r eval=F}
 cloglog.model <- FitGAM(