version 0.1.1

cran · Sep 26, 2023 · 8462006 · 8462006
1 parent de3f593
commit 8462006
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: SSIMmap
 Title: The Structural Similarity Index Measure for Maps
-Version: 0.1.0
+Version: 0.1.1
 Authors@R: c(
   person(given="Hui Jeong (Hailyee)", family="Ha", email="hha24@uwo.ca", role = c("aut", "cre"),comment = c(ORCID = "0000-0002-5229-4528")), 
   person(given="Jed", family="Long", email="jed.long@uwo.ca", role="aut", comment = c(ORCID = "0000-0003-3961-3085")))
@@ -19,10 +19,10 @@ URL: https://github.com/Hailyee-Ha/SSIMmap
 BugReports: https://github.com/Hailyee-Ha/SSIMmap/issues
 VignetteBuilder: knitr
 NeedsCompilation: no
-Packaged: 2023-08-22 15:34:09 UTC; hailyeeha
+Packaged: 2023-09-26 17:50:28 UTC; hailyeeha
 Author: Hui Jeong (Hailyee) Ha [aut, cre]
     (<https://orcid.org/0000-0002-5229-4528>),
   Jed Long [aut] (<https://orcid.org/0000-0003-3961-3085>)
 Maintainer: Hui Jeong (Hailyee) Ha <hha24@uwo.ca>
 Repository: CRAN
-Date/Publication: 2023-08-22 18:40:02 UTC
+Date/Publication: 2023-09-26 18:10:02 UTC
diff --git a/MD5 b/MD5
@@ -1,4 +1,4 @@
-24b6d72f33f8add344de41b819642465 *DESCRIPTION
+0efd94372f2c92b536bdba920ba2fa9a *DESCRIPTION
 14e813b08e1c9579bd569065d24cab52 *LICENSE
 5fc0eb7e03324858cfabc9263dfc5d8a *NAMESPACE
 bfef7e5e108650d28dc9223dedd0b147 *R/Toronto.R
@@ -8,7 +8,7 @@ e62fc6c0eaf8a3ad8f36dda0b3ad0da5 *R/gw_dist.R
 616f6e46ef455ae29b28a8975fb44f76 *R/gwss_new.R
 371a312329de7e90b5bffc31350e3f90 *R/ssim_bandwidth.R
 da8043733edbe1ac61d9f29a4eece395 *R/ssim_constant.R
-0ec275717336b67ea35ef3782357a2e8 *R/ssim_polygon.R
+a6b7702b01648856137f60766396758c *R/ssim_polygon.R
 2ceae0c1f4586d2b7277c6cbf270e52e *R/ssim_raster.R
 778109128b88b47102b950c4919f80ad *README.md
 4e89428feb369f2aa09fb4cb6ff2b196 *build/vignette.rds

diff --git a/R/ssim_polygon.R b/R/ssim_polygon.R
@@ -85,7 +85,7 @@ ssim_polygon<-function(shape,map1,map2,standardize=TRUE,bandwidth=NULL,k1=NULL,k
       gwss_result<-gwss_new(shape,vars = c(map1,map2),bw=sqrt_num_rows)
 
     }else{
-      gwss_result<-gwss_new(shape,vars = c(map1,map2),bw=sqrt_num_rows)
+      gwss_result<-gwss_new(shape,vars = c(map1,map2),bw=bandwidth)
     }
     mean<-dplyr::select(gwss_result,contains("LM"))
     sd<-dplyr::select(gwss_result,contains("LSD"))