r-spatial/discuss#62 progress

r-spatial · Nov 22, 2023 · 0f75c1d · 0f75c1d
1 parent 8a1675d
commit 0f75c1d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/man/do_ldet.Rd b/man/do_ldet.Rd
@@ -63,7 +63,7 @@ can.be.simmed(listw)
   \item{type}{moments trace type, see \code{\link{trW}}}
   \item{correct}{default TRUE: use Smirnov correction term, see \code{\link{trW}}}
   \item{trunc}{default TRUE: truncate Smirnov correction term, see \code{\link{trW}}}
-  \item{eq7}{default TRUE}{use equation 7 in Smirnov and Anselin (2009), if FALSE no unit root correction}
+  \item{eq7}{default TRUE; use equation 7 in Smirnov and Anselin (2009), if FALSE no unit root correction}
   \item{SE_method}{default \dQuote{LU}, alternatively \dQuote{MC}; underlying lndet method to use for generating SE toolbox emulation grid}
   \item{nrho}{default 200, number of lndet values in first stage SE toolbox emulation grid}
   \item{interval}{default c(-1,0.999) if interval argument NULL, bounds for SE toolbox emulation grid}

diff --git a/man/lagmess.Rd b/man/lagmess.Rd
@@ -80,7 +80,9 @@ system.time(obj2 <- lagmess(log(PRICE) ~ PATIO + log(AGE) + log(SQFT), data=balt
 coef(x)
 has_expm <- require("expm", quietly=TRUE)
 if (has_expm) {
-system.time(obj2a <- lagmess(log(PRICE) ~ PATIO + log(AGE) + log(SQFT), data=baltimore, listw=lw, use_expm=TRUE))
+system.time(
+obj2a <- lagmess(log(PRICE) ~ PATIO + log(AGE) + log(SQFT), data=baltimore, listw=lw, use_expm=TRUE)
+)
 summary(obj2a)
 }
 obj3 <- lagsarlm(log(PRICE) ~ PATIO + log(AGE) + log(SQFT), data=baltimore, listw=lw)