Updated version number

Checked for duplicates in BAUs_from_points()
andrewzm · May 3, 2017 · 8c7d293 · 8c7d293
1 parent cea59d7
commit 8c7d293
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: FRK
 Type: Package
 Title: Fixed Rank Kriging
-Version: 0.1.2
-Date: 2017-04-21
+Version: 0.1.3
+Date: 2017-05-04
 Authors@R: c(
     person("Andrew", "Zammit-Mangion", , "[email protected]", c("aut", "cre")),
     person("Timothy", "Davis", , "[email protected]", role = "ctb"),

diff --git a/R/geometryfns.R b/R/geometryfns.R
@@ -992,6 +992,8 @@ setMethod("BAUs_from_points",signature(obj = "SpatialPoints"),
     cnames <- coordnames(obj)           # coordinate names
     coords <- coordinates(obj)          # coordinates of SpatialPoints
 
+    if(any(duplicated(coords)))
+        stop("Please remove any duplicated data locations from the object before proceeding.")
 
     ## Generate the Bottom Left, Bottom Right, Top Right, and Top Left, corners of the BAUs
     BL <- data.frame(X1 = coords[,1] - offset, X2 = coords[,2] - offset, id = 1:length(obj))

diff --git a/vignettes/FRK_intro.pdf b/vignettes/FRK_intro.pdf