[R] Issue from R-devel: subset on table
Leonard Mada
|eo@m@d@ @end|ng |rom @yon|c@eu
Sat Oct 21 22:04:13 CEST 2023
Another solution could also be possible - see below.
On 10/21/2023 10:38 PM, Leonard Mada wrote:
> My mistake!
>
> It does actually something else, which is incorrect. One could still
> use (although the code is more difficult to read):
>
> subset(tmp <- table(sample(1:10, 100, T)), tmp > 10)
2) Alternative solution
Enhance subset.default to accept also formulas, e.g.:
subset.default = function (x, subset, ...)
{
if(inherits(subset, "formula")) {
subset = subset[[2]];
subset = eval(subset, list("." = x));
} else if (! is.logical(subset))
stop("'subset' must be logical")
x[subset & ! is.na(subset)]
}
# it works now: but results depend on sample()
subset(table(sample(1:10, 100, T)), ~ . > 10)
subset(table(sample(1:10, 100, T)), ~ . > 10 & . < 13)
>
>
> Sincerely,
>
>
> Leonard
>
>
> On 10/21/2023 10:26 PM, Leonard Mada wrote:
>> Dear List Members,
>>
>> There was recently an issue on R-devel (which I noticed only very late):
>> https://stat.ethz.ch/pipermail/r-devel/2023-October/082943.html
>>
>> It is possible to use subset as well, almost as initially stated:
>>
>> subset(table(sample(1:5, 100, T)), table > 10)
>> # Error in table > 10 :
>> # comparison (>) is possible only for atomic and list types
>>
>> subset(table(sample(1:5, 100, T)), 'table' > 10)
>> # 1 2 3 4 5
>> # 21 13 15 28 23
>
>
> Note: The result was ok only by chance! But it is incorrect in general.
>
>
>>
>> Works with the letters-example as well.
>>
>> Sincerely,
>>
>> Leonard
>>
>>
More information about the R-help
mailing list