Permalink
Browse files

revert to previous style

git-svn-id: https://svn.r-project.org/R/trunk@62382 00db46b3-68df-0310-9c12-caf00c1e9a41
  • Loading branch information...
1 parent 085b594 commit 1af57759d3dff8947187ed1eca0ef72121b8f772 ripley committed Mar 23, 2013
Showing with 2 additions and 2 deletions.
  1. +1 −1 src/library/stats/R/nls.R
  2. +1 −1 src/main/util.c
@@ -742,7 +742,7 @@ print.summary.nls <-
printCoefmat(x$coefficients, digits = digits, signif.stars = signif.stars,
...)
cat("\nResidual standard error:",
- format(signif(x$sigma, digits)), " on ", rdf, " degrees of freedom")
+ format(signif(x$sigma, digits)), "on", rdf, "degrees of freedom")
cat("\n")
correl <- x$correlation
if (!is.null(correl)) {
View
@@ -1563,12 +1563,12 @@ double R_strtod5(const char *str, char **endptr, char dec,
goto done;
}
if (exact && ans > 9e15) { // lost accuracy
+// error("lost accuracy in '%s'\n", str);
ans = NA_REAL;
p = str; /* back out */
goto done;
}
-
if (*p == 'e' || *p == 'E') {
int expsign = 1;
switch(*++p) {

0 comments on commit 1af5775

Please sign in to comment.