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
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
