fix typos, including from PR#18890

smeyer · smeyer · commit 9c381742c744 · 2025-05-13T11:22:34.000Z
git-svn-id: https://svn.r-project.org/R/trunk@88200 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/doc/NEWS.1 b/doc/NEWS.1
@@ -4660,7 +4660,7 @@ BUG FIXES
 
     o	plot.acf() has a new `xpd = par("xpd")' argument which by default
 	*does* clipping (of the horizontal lines) as desired (xpd = NA was
-	used before, erronously in most cases).
+	used before, erroneously in most cases).
 
     o	predict(smooth.spline(.), deriv = 1) now works.
 
diff --git a/doc/NEWS.2 b/doc/NEWS.2
@@ -13628,7 +13628,7 @@ BUG FIXES
 
     o	Calling par(mfg) before doing any plotting resulted in NewPage
 	never being called on the device, which in turn resulted in
-	incorrect output for postcript() and pdf() devices.  (Reported
+	incorrect output for postscript() and pdf() devices.  (Reported
 	by Marc Schwartz in discussion of the non-bug PR#7820.)
 
     o	terms.formula needed to add parentheses to formulae with
diff --git a/doc/NEWS.3 b/doc/NEWS.3
@@ -7241,7 +7241,7 @@ CHANGES IN R 3.0.0:
     • Profiling _via_ Rprof() now optionally records information at the
       statement level, not just the function level.
 
-    • The Rprof() function now quotes function names in in its output
+    • The Rprof() function now quotes function names in its output
       file on Windows, to be consistent with the quoting in Unix.
 
     • Profiling _via_ Rprof() now optionally records information about
diff --git a/doc/NEWS.3.Rd b/doc/NEWS.3.Rd
@@ -8092,7 +8092,7 @@
       information at the statement level, not just the function level.
 
       \item The \code{Rprof()} function now quotes function names in
-      in its output file on Windows, to be consistent with the quoting
+      its output file on Windows, to be consistent with the quoting
       in Unix.
 
       \item Profiling \emph{via} \code{Rprof()} now optionally records
diff --git a/doc/html/NEWS.3.html b/doc/html/NEWS.3.html
@@ -10458,7 +10458,7 @@ <h4>NEW FEATURES</h4>
 </p>
 </li>
 <li><p> The <code>Rprof()</code> function now quotes function names in
-in its output file on Windows, to be consistent with the quoting
+its output file on Windows, to be consistent with the quoting
 in Unix.
 </p>
 </li>
diff --git a/doc/manual/R-exts.texi b/doc/manual/R-exts.texi
@@ -14883,7 +14883,7 @@ be changed with considerable notice.
 
 As explained elsewhere in this manual, these functions should only be
 called from the main thread of the @R{} process.  (Doing otherwise can
-result in memory corruption and very hard-to-debug seqfaults.)
+result in memory corruption and very hard-to-debug segfaults.)
 
 The recommended procedure to use these is to include the header file
 @file{R.h} in your C code by
diff --git a/src/library/datasets/man/penguins.Rd b/src/library/datasets/man/penguins.Rd
@@ -24,7 +24,7 @@ penguins_raw
     \item{\code{species}}{\code{\link{factor}}, with levels 
       \code{Adelie}, \code{Chinstrap}, and \code{Gentoo}}
     \item{\code{island}}{\code{factor}, 
-      with levels \code{Biscoe}, \code{Dream}, and \code{Torgersen})}
+      with levels \code{Biscoe}, \code{Dream}, and \code{Torgersen}}
     \item{\code{bill_len}}{\code{\link{numeric}}, bill length (millimeters)}
     \item{\code{bill_dep}}{\code{numeric}, bill depth (millimeters)}
     \item{\code{flipper_len}}{\code{\link{integer}}, flipper length (millimeters)}
diff --git a/src/library/datasets/man/treering.Rd b/src/library/datasets/man/treering.Rd
@@ -30,7 +30,7 @@ treering
   \url{https://robjhyndman.com/TSDL/},
   series \file{CA535.DAT}
   %% now pointing to  \url{http://datamarket.com/data/list/?q=provider:tsdl}
-  %% or specifially to
+  %% or specifically to
   %% \url{https://datamarket.com/data/set/22oy/} ==> short \url{http://data.is/2iSo2j1}
 }
 \references{
diff --git a/src/library/datasets/man/zCO2.Rd b/src/library/datasets/man/zCO2.Rd
@@ -1,6 +1,6 @@
 % File src/library/datasets/man/zCO2.Rd
 % Part of the R package, https://www.R-project.org
-% Copyright 1995-20011 R Core Team
+% Copyright 1995-2011 R Core Team
 % Distributed under GPL 2 or later
 
 \name{CO2}
diff --git a/src/library/utils/man/untar.Rd b/src/library/utils/man/untar.Rd
@@ -70,8 +70,8 @@ untar(tarfile, files = NULL, list = FALSE, exdir = ".",
   }
   
   %% even RHEL6 had GNU tar 1.23, Ububtu 14.04 has 1.27
-  %% macOS has bsdtar from 2010: this supports xz but does not docuemnt it.
-  %% bsdtar had lzma/xz supoort before April 2009 when it added
+  %% macOS has bsdtar from 2010: this supports xz but does not document it.
+  %% bsdtar had lzma/xz support before April 2009 when it added
   %% support for command-line unxz etc, not just libraries.
   \item{support_old_tars}{logical.  If false (the default), the external
     \command{tar} command is assumed to be able handle compressed
diff --git a/tests/Embedding/Rpostscript.c b/tests/Embedding/Rpostscript.c
@@ -1,5 +1,5 @@
 /*
-  Tests using the postcript device from within 
+  Tests using the postscript device from within 
   an application that embeds the R interpreter.
   Equivalent of evaluating the expressions:
     postscript()
diff --git a/tests/Pkgs/PR17501/man/donttest.Rd b/tests/Pkgs/PR17501/man/donttest.Rd
@@ -1,7 +1,7 @@
 \name{donttest}
 \alias{donttest}
 \title{donttest}
-\description{Syntax error in \code{\\donttest} snipppet.}
+\description{Syntax error in \code{\\donttest} snippet.}
 \examples{
 ## the snippet below will be commented by .createExdotR()
 ## and then also removed by massageExamples(), which seems obsolete
diff --git a/tests/complex.R b/tests/complex.R
@@ -1,4 +1,4 @@
-### Tests of complex arithemetic.
+### Tests of complex arithmetic.
 
 Meps <- .Machine$double.eps
 ## complex
diff --git a/tests/complex.Rout.save b/tests/complex.Rout.save
@@ -15,7 +15,7 @@ Type 'demo()' for some demos, 'help()' for on-line help, or
 'help.start()' for an HTML browser interface to help.
 Type 'q()' to quit R.
 
-> ### Tests of complex arithemetic.
+> ### Tests of complex arithmetic.
 > 
 > Meps <- .Machine$double.eps
 > ## complex
diff --git a/tests/datetime2.R b/tests/datetime2.R
@@ -59,7 +59,7 @@ as.POSIXlt(z)$year == 5879680L
 
 ## ------------- Tests of far-distant dates -----------
 Sys.setenv(TZ = "Europe/London")
-## the pre-1902 POSIXct values wil be 75s out on platdorm that do not
+## the pre-1902 POSIXct values will be 75s out on platforms that do not
 ## know about UK changes prior to 1902 (in fact in 1847-12-01: see below).
 as.POSIXct("4000-07-01")
 as.Date("4000-07-01")
diff --git a/tests/datetime2.Rout.save b/tests/datetime2.Rout.save
@@ -264,7 +264,7 @@ Type 'q()' to quit R.
 > 
 > ## ------------- Tests of far-distant dates -----------
 > Sys.setenv(TZ = "Europe/London")
-> ## the pre-1902 POSIXct values wil be 75s out on platdorm that do not
+> ## the pre-1902 POSIXct values will be 75s out on platforms that do not
 > ## know about UK changes prior to 1902 (in fact in 1847-12-01: see below).
 > as.POSIXct("4000-07-01")
 [1] "4000-07-01 BST"
diff --git a/tests/lapack.R b/tests/lapack.R
@@ -1,7 +1,7 @@
 ## tests of R functions based on the lapack module
 
 ## NB: the signs of singular and eigenvectors are arbitrary,
-## so there may be differences from the reference ouptut,
+## so there may be differences from the reference output,
 ## especially when alternative BLAS are used.
 
 options(digits = 4L)
diff --git a/tests/lapack.Rout.save b/tests/lapack.Rout.save
@@ -18,7 +18,7 @@ Type 'q()' to quit R.
 > ## tests of R functions based on the lapack module
 > 
 > ## NB: the signs of singular and eigenvectors are arbitrary,
-> ## so there may be differences from the reference ouptut,
+> ## so there may be differences from the reference output,
 > ## especially when alternative BLAS are used.
 > 
 > options(digits = 4L)
diff --git a/tests/print-tests.R b/tests/print-tests.R
@@ -68,7 +68,7 @@ for(i in digs1) { DIG(i); cat(i,":", formatC(v3, digits=i, width=8),"\n") }
 
 
 ## R-0.50: switches to NON-exp at 14, but should only at 15...
-## R-0.61++: doesn' switch at all (or at 20 only)
+## R-0.61++: doesn't switch at all (or at 20 only)
 ## S-plus: does not switch at all..
 for(i in digs1) { cat(i,":");  print(v1, digits=i) }
 
diff --git a/tests/print-tests.Rout.save b/tests/print-tests.Rout.save
@@ -126,7 +126,7 @@ Type 'q()' to quit R.
 > 
 > 
 > ## R-0.50: switches to NON-exp at 14, but should only at 15...
-> ## R-0.61++: doesn' switch at all (or at 20 only)
+> ## R-0.61++: doesn't switch at all (or at 20 only)
 > ## S-plus: does not switch at all..
 > for(i in digs1) { cat(i,":");  print(v1, digits=i) }
 1 :[1] 2e-04 4e-03 2e-02 6e-02 8e+00 6e+01 5e+02
diff --git a/tests/reg-BLAS.R b/tests/reg-BLAS.R
@@ -5,7 +5,7 @@ stopifnot(is.na(NA %*% 0), is.na(0 %*% NA))
 
 
 ## found from fallback test in slam 0.1-15
-## most likely indicates an inaedquate BLAS.
+## most likely indicates an inadequate BLAS.
 x <- matrix(c(1, 0, NA, 1), 2, 2)
 y <- matrix(c(1, 0, 0, 2, 1, 0), 3, 2)
 (z <- tcrossprod(x, y))
diff --git a/tests/reg-S4.R b/tests/reg-S4.R
@@ -146,7 +146,7 @@ stopifnot(identical(d2[-1,], d2[2:3,]))
 ## failed in R <= 2.1.x
 
 
-## Fritz' S4 "odditiy"
+## Fritz' S4 "oddity"
 setClass("X", representation(bar="numeric"))
 setClass("Y", contains="X")
 ## Now we define a generic foo() and two different methods for "X" and
diff --git a/tests/reg-S4.Rout.save b/tests/reg-S4.Rout.save
@@ -221,7 +221,7 @@ from="ANY", to="numeric"
 > ## failed in R <= 2.1.x
 > 
 > 
-> ## Fritz' S4 "odditiy"
+> ## Fritz' S4 "oddity"
 > setClass("X", representation(bar="numeric"))
 > setClass("Y", contains="X")
 > ## Now we define a generic foo() and two different methods for "X" and
diff --git a/tests/reg-encodings.R b/tests/reg-encodings.R
@@ -134,7 +134,7 @@ if (UTF8) {
     ## not work with call set, and multibyte characters could be mangled by
     ## the `...`.
     ##
-    ## We assume getttext strings are not translated (or are translated
+    ## We assume gettext strings are not translated (or are translated
     ## to the same byte-length as the ones in source).
 
     ## We cannot use `tryCatch` as we're testing the C-level error construction
@@ -193,7 +193,7 @@ if (UTF8) {
         long_error(utf8.test, overflow=0)
 
         overflow <- c(
-             -6,   # Buffer unambiguosly unfilled for MB_CUR_MAX=6
+             -6,   # Buffer unambiguously unfilled for MB_CUR_MAX=6
              -5,   # Buffer maybe filled for MB_CUR_MAX=6
              -4,   # Buffer full with '...\n\0'
              -3,   # Lose 4 byte UTF-8 char
diff --git a/tests/reg-large.R b/tests/reg-large.R
@@ -412,7 +412,7 @@ stopifnot(r[1:6] == 1:6)
 rm(r,x)
 
 ## rank(<largish) -- PR#18630
-vals <- 1:1475000000 # (immedate, thanks to ALTREP)
+vals <- 1:1475000000 # (immediate, thanks to ALTREP)
 system.time( ranks <- rank(vals) ) # ~ 130 sec
 head(ranks, 11)
 stopifnot(ranks[1:11] == 1:11, min(ranks) == 1)
diff --git a/tests/reg-plot.R b/tests/reg-plot.R
@@ -125,7 +125,7 @@ plot(cos, -7,7, n=11, axes=FALSE)
 ## gave wrong ylab in R 2.6.0
 plot(cos, -7,7, ylab = "Cosine  cos(x)", n=11, axes=FALSE)
 ## partial matching of 'ylab'; mapping  [0,1] (not [-7.7]):
-## margins chosen to avoid rouding error showing to 2dp.
+## margins chosen to avoid rounding error showing to 2dp.
 op <- par(mar=c(5,4.123,4,2)+0.1)
 plot(gamma, yla = expression(Gamma(x)), n=11, yaxt="n")
 par(op)
diff --git a/tests/reg-tests-1a.R b/tests/reg-tests-1a.R
@@ -3325,7 +3325,7 @@ stopifnot(labels(lm.D9) == "group")
 a <- matrix (ncol=100, nrow=100, data=c(1,2,3,4,5))
 a.serial <- rawToChar(serialize(a, NULL, ascii=TRUE))
 try(sprintf('foo: %s\n', a.serial))
-## seqfaulted in 2.0.1
+## segfaulted in 2.0.1
 
 
 ## all/any did not coerce as the Blue Book described.
@@ -3367,7 +3367,7 @@ a1 <- m1; dim(a1) <- length(a1); dimnames(a1) <- dimnames(m1)[2]; a1 # named dn
 a2 <- a1; names(dimnames(a2)) <- NULL ; a2 # unnamed dn
 a3 <- a1; dimnames(a3) <- NULL ; a3 # no dn
 stopifnot(identical(dimnames(t(a1))[2], dimnames(a1)))
-## in version <= 2.0.1,  t(.) was loosing names of dimnames()
+## in version <= 2.0.1,  t(.) was losing names of dimnames()
 tst1(a1)# failed in 2.0.1 ("twice")
 tst1(a2)# failed in 2.0.1
 tst1(a3)# ok
@@ -3421,7 +3421,7 @@ f <- factor(1:3)
 contrasts(f, 1) <- c
 x <- model.matrix(~f)
 stopifnot(x == c(1,1,1,0,1,2))
-## gave machine-dependendent silly numbers in 2.0.1
+## gave machine-dependent silly numbers in 2.0.1
 
 
 ## extreme (de-normalized) axis range
@@ -4027,7 +4027,7 @@ stopifnot(nchar(ff) == 12)
 ## small marks test
 f2 <- format(x, big.mark = "'", small.mark="_", small.interval = 2)
 nc <- nchar(f2)
-stopifnot(substring(f2, nc,nc) != "_", # no traling small mark
+stopifnot(substring(f2, nc,nc) != "_", # no trailing small mark
           nc == nc[1])# all the same
 fc <- formatC(1.234 + 10^(0:8), format="fg", width=11, big.mark = "'")
 stopifnot(nchar(fc) == 11)
@@ -4683,7 +4683,7 @@ mosaicplot(x, sort = seq_len(dim(x)))
 ## failed in 2.4.1, fixed in 2.5.0
 
 
-## jitter failed in wierd case (PR#9580)
+## jitter failed in weird case (PR#9580)
 stopifnot(is.finite( jitter(c(-1, 3)) ))
 ## was repeated NaN in 2.4.1
 
@@ -4767,7 +4767,7 @@ stopifnot(inherits(try(seq.int(1.2, 1, by=1)), "try-error"))
 ## subassignment on pairlists: Uwe Ligges on R-help, 2007-05-29
 Call <- call("round", 10.5)
 try({Call[] <- NULL; Call})
-## seqgfaulted in 2.5.0
+## segfaulted in 2.5.0
 
 
 ## Bessel bugs for nu < 0:
diff --git a/tests/reg-tests-1b.R b/tests/reg-tests-1b.R
@@ -426,7 +426,7 @@ barplot(dat, beside = TRUE, log = "y")
 ## related to PR#12551
 unique("a", c("a", "b"))
 unique(1, 1:2)
-# could seqfault in 2.7.1 on some platforms
+# could segfault in 2.7.1 on some platforms
 stopifnot(!duplicated(rep("a", 3), "a"))
 ## wrong answer in 2.7.1
 
@@ -589,7 +589,7 @@ lines(y ~ x, subset = !is.na(y), col="red")
 ## error in 2.8.0
 
 
-## prettyNum(*, drop0trailing) erronously dropped 0 in '1e10':
+## prettyNum(*, drop0trailing) erroneously dropped 0 in '1e10':
 cn <- c("1.107", "2.3120", "3.14e+0", "4.2305400", "120.0",
         "5.31e-01", "6.3333e-20", "8.1e100", "9.9e+00", "10.1e-0")
 d <- cn != (pcn <- prettyNum(cn, drop0trailing=TRUE))
@@ -682,7 +682,7 @@ stopifnot(identical(r[,1:3], r[,4:6]))
 ## suffered from sin(n * pi) imprecision in R <= 2.8.1
 
 
-## Large sanples in mood.test
+## Large samples in mood.test
 ## https://stat.ethz.ch/pipermail/r-help/2009-March/190479.html
 set.seed(123)
 x <- rnorm(50, 10, 5)
@@ -925,15 +925,15 @@ for(compress in c("bzip2", "xz"))
 mor <- system.file("data/morley.tab", package="datasets")
 ll <- readLines(mor)
 tf <- tempfile()
-## gzip copression
+## gzip compression
 writeLines(ll, con <- gzfile(tf)); close(con)
 file.info(tf)$size
 stopifnot(identical(read.table(tf), morley))
-## bzip2 copression
+## bzip2 compression
 writeLines(ll, con <- bzfile(tf)); close(con)
 file.info(tf)$size
 stopifnot(identical(read.table(tf), morley))
-## xz copression
+## xz compression
 writeLines(ll, con <- xzfile(tf, compression = -9)); close(con)
 file.info(tf)$size
 stopifnot(identical(read.table(tf), morley))
@@ -1043,7 +1043,7 @@ E2 <- sapply(alt, function(a.)
 			 alternative = a., exact = FALSE)$estimate)
 stopifnot(E1[-1] == E1[1],
 	  E2[-1] == E2[1])
-## was continiuity corrected, dependent on 'alternative', prior to 2.10.1
+## was continuity corrected, dependent on 'alternative', prior to 2.10.1
 
 
 ## read.table with embedded newlines in header (PR#14103)
@@ -1150,7 +1150,7 @@ lapply("forward", switch, forward = "posS", reverse = "negS")
 
 ## evaluation of arguments of log2
 assertError(tryCatch(log2(quote(1:10))))
-## 'worked' in 2.10.x by evaluting the arg twice.
+## 'worked' in 2.10.x by evaluating the arg twice.
 
 
 ## mean with NAs and trim (Bill Dunlap,
@@ -1187,7 +1187,7 @@ y <- c(-12, -10, 3.5, 4.45, 4.5, 140, 142)
 Smon <- splinefun(x, y, method = "monoH.FC")
 stopifnot(0 <= min(Smon(xx, deriv=1)))
 ## slopes in [4.4, 4.66] were slightly negative, because m[] adjustments
-## could be sightly off in cases of adjacency, for  R <= 2.11.0
+## could be slightly off in cases of adjacency, for  R <= 2.11.0
 
 
 ## prettyDate( <Date> )
@@ -1426,7 +1426,7 @@ try(regexpr("a{2-}", ""))
 ## ! on zero-length objects (PR#14244)
 M <- matrix(FALSE, 0, 2)
 stopifnot(identical(attributes(!M), attributes(M)))
-# and for back compatibiility
+# and for back compatibility
 !list() # logical(0)
 ## dropped all attributes in 2.12.0
 
@@ -1920,7 +1920,7 @@ a.factor <- as.factor(rep(letters[1:2], 2))
 b.factor <- as.factor(rep(c(1:2), each = 2))
 y <- cbind(aa = as.character(a.factor), bb = b.factor)
 data1 <- data.frame(a.factor, b.factor, y = NA)
-data1$y <- y # inserts a matric
+data1$y <- y # inserts a matrix
 data1 <- subset(data1, !((a.factor == "b") & (b.factor == 2))) # Delete row
 factorial.data <- data.frame(a.factor, b.factor, row = 1:length(b.factor))
 ans <- merge(factorial.data, data1, by = c("a.factor", "b.factor"),
diff --git a/tests/reg-tests-1c.R b/tests/reg-tests-1c.R
diff --git a/tests/reg-tests-1d.R b/tests/reg-tests-1d.R
diff --git a/tests/reg-tests-1e.R b/tests/reg-tests-1e.R
diff --git a/tests/reg-tests-2.R b/tests/reg-tests-2.R
diff --git a/tests/reg-tests-2.Rout.save b/tests/reg-tests-2.Rout.save

Original file line number	Diff line number	Diff line change
`@@ -30,7 +30,7 @@ treering`
`30`	`30`	`\url{https://robjhyndman.com/TSDL/},`
`31`	`31`	`series \file{CA535.DAT}`
`32`	`32`	`%% now pointing to \url{http://datamarket.com/data/list/?q=provider:tsdl}`
`33`		`- %% or specifially to`
	`33`	`+ %% or specifically to`
`34`	`34`	`%% \url{https://datamarket.com/data/set/22oy/} ==> short \url{http://data.is/2iSo2j1}`
`35`	`35`	`}`
`36`	`36`	`\references{`