Patch (was Re: [RFR] po://nlme/po/R-de.po)
Jens Seidel schrieb:
Chris Leick wrote:
Jens Seidel schrieb:
Chris Leick wrote:
Besser von den Autoren zu einer Meldung zusammenfassen lassen. Aber sowas
willst du nicht mehr berichten?
Eventuell solltest du einen Patch schicken?
Da dies mein erster Versuch eines Patches ist, sende ich ihn zuerst mal
an diese Liste, damit "erfahrene Patcher" es auf Fehler abklopfen. (Ich
möchte schließlich nicht die Entwickler verärgern.)
-------------
Package: nlme
Version: 3.1.90-1
Severity: minor
Tags: Patch
Hi,
The following patch should fix some errors and oddities. I've found them while translating /nlme/po/R-nlme.pot.
There are three strings with the same meaning:
R/corStruct.R: stop("Initial value of nugget ratio must be between 0 and 1")
R/corStruct.R: stop("Initial value of nugget ratio must be in (0,1)")
R/corStruct.R: stop("Initial value of nugget ratio must be between 0 and 1")
-----------cut here -----start--------
--- corStruct.R 2008-02-11 15:05:14.000000000 +0100
+++ corStruct.R.orig 2009-05-08 09:32:56.000000000 +0200
@@ -2144,7 +2144,7 @@
}
}
if ((val[2] <= 0) || (val[2] >= 1)) {
- stop("Initial value of nugget ratio must be in (0,1)")
+ stop("Initial value of nugget ratio must be between 0 and 1")
}
} else { # only range parameter
if (length(val) != 1) {
-----------cut here -----end--------
missing word (twice):
-----------cut here -----start--------
--- gnls.R 2009-05-08 09:46:00.000000000 +0200
+++ gnls.R.orig 2009-05-08 09:49:09.000000000 +0200
@@ -271,7 +271,7 @@
}
pLen <- length(pn)
if (length(start) != pLen)
- stop ("starting values for parameters are not the correct length")
+ stop ("starting values for parameters are not of the correct length")
spar <- start
names(spar) <- pn
NReal <- sum(naPat)
-----------cut here -----end--------
Concatenation of multiple parts of a string to simplify translations:
-----------cut here -----start--------
--- lme.R 2009-05-08 09:56:51.000000000 +0200
+++ lme.R.orig 2009-05-08 09:59:44.000000000 +0200
@@ -197,9 +197,9 @@
"and \"correlation\""))
}
if (corQ < lmeQ) {
- warning(paste("Cannot use smaller level of grouping for",
- "\"correlation\" than for \"random\". Replacing",
- "the former with the latter."))
+ warning("Cannot use smaller level of grouping for\n",
+ "\"correlation\" than for \"random\". Replacing\n",
+ "the former with the latter.")
attr(correlation, "formula") <-
eval(parse(text = paste("~",
c_deparse(getCovariateFormula(formula(correlation))[[2]]),
-----------cut here -----end--------
-----------cut here -----start--------
--- nlme.R 2009-05-08 09:46:13.000000000 +0200
+++ nlme.R.orig 2009-05-08 10:01:38.000000000 +0200
@@ -331,9 +331,9 @@
"and \"correlation\""))
}
if (corQ < lmeQ) {
- warning(paste("Cannot use smaller level of grouping for",
- "\"correlation\" than for \"random\". Replacing",
- "the former with the latter."))
+ warning("Cannot use smaller level of grouping for\n",
+ "\"correlation\" than for \"random\". Replacing\n",
+ "the former with the latter.")
attr(correlation, "formula") <-
eval(parse(text = paste("~",
c_deparse(getCovariateFormula(formula(correlation))[[2]]),
@@ -523,7 +523,7 @@
}
fLen <- length(fn)
if (length(sfix) != fLen)
- stop ("starting values for the fixed component are not the correct length")
+ stop ("starting values for the fixed component are not of the correct length")
names(sfix) <- fn
##
## Random effects names
-----------cut here -----end--------
Greeting,
Chris
Reply to: