Ничего плохого в больших столах?Что произвело на вас такое впечатление?
> set.seed(123)
> fac <- factor(sample(10000, 10000, rep = TRUE))
> fac2 <- factor(sample(10000, 10000, rep = TRUE))
> tab <- table(fac, fac2)
> str(tab)
'table' int [1:6282, 1:6279] 0 0 0 0 0 0 0 0 0 0 ...
- attr(*, "dimnames")=List of 2
..$ fac : chr [1:6282] "1" "5" "7" "9" ...
..$ fac2: chr [1:6279] "1" "2" "3" "4" ...
Печать tab
вызовет проблемы - на ее создание потребуется некоторое время, а затем вы получите следующее сообщение:
[ reached getOption("max.print") -- omitted 6267 rows ]]
что при изменении options(max.print = XXXXX)
, где XXXXX
- какое-то большое число.Но я не вижу, что получается при печати такого большого стола?Если вы пытаетесь сделать это, чтобы увидеть, была ли создана правильная таблица по размеру, то
> dim(tab)
[1] 6282 6279
> str(tab)
'table' int [1:6282, 1:6279] 0 0 0 0 0 0 0 0 0 0 ...
- attr(*, "dimnames")=List of 2
..$ fac : chr [1:6282] "1" "5" "7" "9" ...
..$ fac2: chr [1:6279] "1" "2" "3" "4" ...
помогите с этим.