2010-10-31 6 views

Répondre

3

table La fonction n'est pas limitée à 4222 lignes. Très probablement, c'est la limite d'impression qui vous donne le problème.

Essayez:

options(max.print = 20000) 

aussi, vérifiez le nombre "réel" de lignes:

tbl <- table(state.division, state.region) 
nrow(tbl) 
+0

Merci cela fonctionne – Jayanth

0

Rien de mal avec les grandes tables? Qu'est-ce qui vous a donné cette impression?

> 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" ... 

impression tab causera des problèmes - il faut un certain temps pour générer et vous obtenez ce message:

[ reached getOption("max.print") -- omitted 6267 rows ]] 

Vous pouvez modifier qu'en changeant options(max.print = XXXXX)XXXXX est un peu grand nombre. Mais je ne vois pas ce qui est gagné en imprimant une si grande table? Si vous essayez de le faire pour voir si la bonne table avait été produit, la taille-sage, puis

> 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" ... 

aider.

+0

Merci, je me rends compte de la réponse précédente que je devais définir l'option maxprint – Jayanth

+0

@Jayanth; oui, VitoshKa et moi semblons avoir composé nos réponses en même temps. –

Questions connexes