Displaying 1 result from an estimated 1 matches for "elim_trailing".
2009 May 23
2
as.numeric(levels(factor(x))) may be a decreasing sequence
...0.3
# Levels: 0.3
Petr.
-------------- next part --------------
--- R-devel/src/main/coerce.c 2009-04-17 17:53:35.000000000 +0200
+++ R-devel-elim-trailing/src/main/coerce.c 2009-05-23 08:39:03.914774176 +0200
@@ -294,12 +294,33 @@
else return mkChar(EncodeInteger(x, w));
}
+const char *elim_trailing(const char *s, char cdec)
+{
+ const char *p;
+ char *replace;
+ for (p = s; *p; p++) {
+ if (*p == cdec) {
+ replace = (char *) p++;
+ while ('0' <= *p & *p <= '9') {
+ if (*(p++) != '0') {
+...