@@ -10,4 +10,6 @@ Meta

 .gitattributes

-.vscode

\ No newline at end of file

+.vscode

+small_data.rds

+test.R

@@ -1,7 +1,7 @@

 Package: lisaClust

 Type: Package

 Title: lisaClust: Clustering of Local Indicators of Spatial Association

-Version: 1.8.1

+Version: 1.8.2

 Authors@R: c(

     person("Ellis", "Patrick", email = "[email protected]",

     role = c("aut", "cre")),

@@ -20,9 +20,27 @@ Depends: R (>= 4.0)

 VignetteBuilder: knitr

 BugReports: https://github.com/ellispatrick/lisaClust/issues

 URL: https://ellispatrick.github.io/lisaClust/, https://github.com/ellispatrick/lisaClust

-Imports: ggplot2, class, concaveman, grid, BiocParallel, spatstat.explore,

-        spatstat.geom, BiocGenerics, S4Vectors, methods, spicyR,

-        purrr, stats, data.table, dplyr, tidyr, SingleCellExperiment, SpatialExperiment,

-        SummarizedExperiment, pheatmap

+Imports: 

+    ggplot2,

+    class,

+    concaveman,

+    grid,

+    BiocParallel,

+    spatstat.explore,

+    spatstat.geom,

+    BiocGenerics,

+    S4Vectors,

+    methods,

+    spicyR,

+    purrr,

+    stats,

+    data.table,

+    dplyr,

+    tidyr,

+    SingleCellExperiment,

+    SpatialExperiment,

+    SummarizedExperiment,

+    pheatmap,

+    spatstat.random

 Suggests: BiocStyle, knitr, rmarkdown

 RoxygenNote: 7.2.3

@@ -65,6 +65,7 @@ importFrom(spatstat.geom,owin)

 importFrom(spatstat.geom,ppp)

 importFrom(spatstat.geom,solapply)

 importFrom(spatstat.geom,union.owin)

+importFrom(spatstat.random,expand.owin)

 importFrom(spicyR,"cellAnnotation<-")

 importFrom(spicyR,SegmentedCells)

 importFrom(spicyR,cellAnnotation)

@@ -367,6 +367,7 @@ weightCounts <- function(dt, X, maxD, lam) {

 #' @rdname inhomLocalK

 #' @importFrom spatstat.geom ppp closepairs marks area

 #' @importFrom spatstat.explore density.ppp

+#' @importFrom spatstat.random expand.owin

 #' @importFrom tidyr pivot_longer

 #' @importFrom dplyr left_join

 inhomLocalK <-

@@ -379,6 +380,7 @@ inhomLocalK <-

            lisaFunc = "K") {

     ow <- makeWindow(data, window, window.length)

+    ow <- spatstat.random::expand.owin(ow, distance = 0.01)

     X <-

       spatstat.geom::ppp(

         x = data$x,