Displaying 1 result from an estimated 1 matches for "336d335".
Did you mean:
336335
2012 Dec 13
0
Suggestion of change to reduce overhead of 'table'
...levels = ll[!llexcl],
86a90,91
>? ? ? ? ? ? ? ? ? ? ? ???else
>? ? ? ? ? ? ? ? ? ? ? ? ? ???a
Function 'table' calls function 'addNA' in some cases. I suggest to change 'addNA', too. This is diff against https://svn.r-project.org/R/trunk/src/library/base/R/factor.R.
336d335
<? ???if (ifany & !any(is.na(x))) return(x)
338c337,339
<? ???if (!any(is.na(ll))) ll <- c(ll, NA)
---
>? ???hasNAlev <- any(is.na(ll))
>? ???if ((ifany || hasNAlev) && !any(is.na(x))) return(x)
>? ???if (!hasNAlev) ll <- c(ll, NA)
Instead of calling 'facto...