update hotspot to NA

Author: rsbivand

R/licd_boots.R

@@ -704,7 +704,7 @@ hotspot.licd <- function(obj, type="both", cutoff=0.05, p.adjust="none",
         pv <- obj$local_uni_sim[,4]
         pv <- p.adjust(pv, p.adjust)
         local_uni_sim <- rep(as.character(NA), length(pv))
-        local_uni_sim[pv < cutoff] <- paste("Cluster:",
+        local_uni_sim[pv <= cutoff] <- paste("Cluster:",
             obj$local_uni_sim$fx[pv < cutoff], ":",
             as.character(cutoff), sep="")
         local_uni_sim <- factor(local_uni_sim)

R/local-joincount-univariate.R

@@ -153,7 +153,8 @@ hotspot.local_jc_uni <- function(obj, cutoff=0.05, p.adjust="none", ...) {
     pv <- obj[,2]
     pv <- p.adjust(pv, p.adjust)
     local_uni_sim <- rep(as.character(NA), length(pv))
-    crit <- pv < cutoff
+    crit <- pv <= cutoff
+    local_uni_sim[is.na(crit)] <- paste0("Not ", attr(obj, "chosen"))
     crit[is.na(crit)] <- FALSE
     local_uni_sim[crit] <- paste0("Cluster:", attr(obj, "chosen"),
         ":", as.character(cutoff))