Время выполнения не уменьшается в более высокой конфигурации компьютера PHP

Другая опция, использующая базовые функции:

subset(data.frame(table(chickwts$feed)), Freq > 11)

Результат:

       Var1 Freq
1    casein   12
3   linseed   12
5   soybean   14
6 sunflower   12

Использование пакета dplyr:

library(dplyr)
chickwts %>% 
  count(feed) %>%
  filter(n > 11) 

Результат :

Source: local data frame [4 x 2]

       feed  n
1    casein 12
2   linseed 12
3   soybean 14
4 sunflower 12