correct misspelled row.names(LifeCycleSavings)

git-svn-id: https://svn.r-project.org/R/trunk@88215 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: smeyer

doc/NEWS.Rd

@@ -85,6 +85,9 @@
 
       \I{Relatedly}, changing the \code{environment()} of a primitive function
       does no longer happen and gives a warning (to become an error, later).
+
+      \item Dataset \code{LifeCycleSavings} had a misspelled row name:
+      \code{"Guatamala"} was corrected to \code{"Guatemala"}.
     }
   }
 

src/library/datasets/data/LifeCycleSavings.R

@@ -30,7 +30,7 @@ LifeCycleSavings <-
                row.names = c("Australia", "Austria",
 "Belgium", "Bolivia", "Brazil", "Canada", "Chile", "China", "Colombia",
 "Costa Rica", "Denmark", "Ecuador", "Finland", "France", "Germany", "Greece",
-"Guatamala", "Honduras", "Iceland", "India", "Ireland", "Italy", "Japan",
+"Guatemala", "Honduras", "Iceland", "India", "Ireland", "Italy", "Japan",
 "Korea", "Luxembourg", "Malta", "Norway", "Netherlands", "New Zealand",
 "Nicaragua", "Panama", "Paraguay", "Peru", "Philippines", "Portugal",
 "South Africa", "South Rhodesia", "Spain", "Sweden", "Switzerland",

src/library/datasets/man/LifeCycleSavings.Rd

@@ -1,6 +1,6 @@
 % File src/library/datasets/man/LifeCycleSavings.Rd
 % Part of the R package, https://www.R-project.org
-% Copyright 1995-2007 R Core Team
+% Copyright 1995-2025 R Core Team
 % Distributed under GPL 2 or later
 
 \name{LifeCycleSavings}
@@ -23,7 +23,7 @@
   }
 }
 \source{
-  The data were obtained from Belsley, Kuh and Welsch (1980).
+  The data were obtained from Belsley, Kuh and Welsch (1980, pp.\sspace{}41--42).
   They in turn obtained the data from Sterling (1977).
 }
 \details{
@@ -36,6 +36,10 @@
   The data are averaged over the decade 1960--1970 to remove the
   business cycle or other short-term fluctuations.
 }
+\note{
+  The dataset in \R < 4.6.0 had a typo in the row name \code{"Guatemala"}.
+  The examples show how to recreate that version.
+}
 \references{
   Sterling, Arnie (1977) Unpublished BS Thesis.
   Massachusetts Institute of Technology.
@@ -50,5 +54,10 @@ pairs(LifeCycleSavings, panel = panel.smooth,
       main = "LifeCycleSavings data")
 fm1 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings)
 summary(fm1)
+
+## recreate pre-4.6 dataset with a misspelled row name
+idx <- which(row.names(LifeCycleSavings) == "Guatemala")
+stopifnot(length(idx) == 1)
+LCS <- LifeCycleSavings; row.names(LCS)[idx] <- "Guatamala" # sic!
 }
 \keyword{datasets}