From 075e1f7a35a23bc1230bab31b8f3a138ada17847 Mon Sep 17 00:00:00 2001 From: mcsiple-NOAA Date: Mon, 14 Aug 2023 15:56:56 -0700 Subject: [PATCH] change CRS to 3338 forAKGF density plot. This resolves #15 --- R/Functions_akgfmaps.R | 3 ++- vignettes/BasicsOfFiveYearReview.Rmd | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/R/Functions_akgfmaps.R b/R/Functions_akgfmaps.R index 3ec6246..6fe19ff 100644 --- 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 index c527726..5696d5a 100644 --- 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(