update docs

r-spatial · Sep 10, 2024 · c19ffab · c19ffab
1 parent 220fd4a
commit c19ffab
Show file tree

Hide file tree

Showing 11 changed files with 29 additions and 25 deletions.
diff --git a/docs/reference/Rplot001.png b/docs/reference/Rplot001.png
diff --git a/docs/reference/Rplot002.png b/docs/reference/Rplot002.png
diff --git a/docs/reference/Rplot003.png b/docs/reference/Rplot003.png
diff --git a/docs/reference/Rplot004.png b/docs/reference/Rplot004.png
diff --git a/docs/reference/joincount.multi-2.png b/docs/reference/joincount.multi-2.png
diff --git a/docs/reference/joincount.multi.html b/docs/reference/joincount.multi.html
diff --git a/docs/reference/licd_multi-2.png b/docs/reference/licd_multi-2.png
diff --git a/docs/reference/licd_multi-4.png b/docs/reference/licd_multi-4.png
diff --git a/docs/reference/licd_multi.html b/docs/reference/licd_multi.html
diff --git a/man/joincount.multi.Rd b/man/joincount.multi.Rd
@@ -80,6 +80,7 @@ if (GDAL37) {
  target <- unzip(zipfile, files=bn, exdir=td)
  sc50m <- st_read(target)
 }
+sc50m$Winner <- factor(sc50m$Winner, levels=c("Con", "Green", "Lab", "LD"))
 plot(sc50m[,"Winner"], pal=c("#2297E6", "#61D04F", "#DF536B", "#F5C710"))
 nb_sc_50m <- poly2nb(sc50m, row.names=as.character(sc50m$Constituency))
 sub2 <- attr(nb_sc_50m, "region.id")[attr(nb_sc_50m, "ncomp")$comp.id == 2L]
@@ -95,6 +96,6 @@ meet_criterion <- sum(dioww <= units::set_units(5000, "m"))
 cands <- attr(nb_sc_50m, "region.id")[order(dioww)[1:meet_criterion]]
 nb_sc_50m_iow <- addlinks1(nb_sc_50m_iowe, from = cands[2], to = cands[3:meet_criterion])
 nb_sc_1_2 <- nblag_cumul(nblag(nb_sc_50m_iow, 2))
-joincount.multi(factor(sc50m$Winner), nb2listw(nb_sc_1_2, style="B"))
+joincount.multi(sc50m$Winner, nb2listw(nb_sc_1_2, style="B"))
 }
 \keyword{spatial}
diff --git a/man/licd_multi.Rd b/man/licd_multi.Rd
@@ -75,6 +75,7 @@ if (GDAL37) {
  target <- unzip(zipfile, files=bn, exdir=td)
  sc50m <- st_read(target)
 }
+sc50m$Winner <- factor(sc50m$Winner, levels=c("Con", "Green", "Lab", "LD"))
 plot(sc50m[,"Winner"], pal=c("#2297E6", "#61D04F", "#DF536B", "#F5C710"))
 nb_sc_50m <- poly2nb(sc50m, row.names=as.character(sc50m$Constituency))
 sub2 <- attr(nb_sc_50m, "region.id")[attr(nb_sc_50m, "ncomp")$comp.id == 2L]
@@ -91,7 +92,7 @@ cands <- attr(nb_sc_50m, "region.id")[order(dioww)[1:meet_criterion]]
 nb_sc_50m_iow <- addlinks1(nb_sc_50m_iowe, from = cands[2], to = cands[3:meet_criterion])
 nb_sc_1_2 <- nblag_cumul(nblag(nb_sc_50m_iow, 2))
 lw <- nb2listw(nb_sc_1_2, style="B")
-licd_obj <- licd_multi(factor(sc50m$Winner), lw)
+licd_obj <- licd_multi(sc50m$Winner, lw)
 h_obj <- hotspot(licd_obj)
 sc50m$both <- h_obj$both_recode
 plot(sc50m[, "both"])