Tablas de frecuencias

fuma <- c('Frecuente', 'Nunca', 'A veces', 'A veces', 'A veces',
'Nunca', 'Frecuente', NA, 'Frecuente', NA, 'hola',
'Nunca', 'Hola', 'Frecuente', 'Nunca')
fuma

 [1] "Frecuente" "Nunca"     "A veces"   "A veces"   "A veces"   "Nunca"    
 [7] "Frecuente" NA          "Frecuente" NA          "hola"      "Nunca"    
[13] "Hola"      "Frecuente" "Nunca"    

table(fuma)

fuma
  A veces Frecuente      hola      Hola     Nunca 
        3         4         1         1         4 

table(fuma, useNA='always')

fuma
  A veces Frecuente      hola      Hola     Nunca      <NA> 
        3         4         1         1         4         2 

table(fuma, exclude=c('Hola', 'hola'))

fuma
  A veces Frecuente     Nunca      <NA> 
        3         4         4         2 

tabla1 <- table(fuma, exclude=c('Hola', 'hola', NA))
tabla1

fuma
  A veces Frecuente     Nunca 
        3         4         4 

sexo <- c('Hombre', 'Hombre', 'Hombre', NA, 'Mujer',
'Casa', 'Mujer', 'Mujer', 'Mujer', 'Hombre', 'Mujer',
'Hombre', NA, 'Mujer', 'Mujer')
sexo

 [1] "Hombre" "Hombre" "Hombre" NA       "Mujer"  "Casa"   "Mujer"  "Mujer" 
 [9] "Mujer"  "Hombre" "Mujer"  "Hombre" NA       "Mujer"  "Mujer" 

tabla3<-table(sexo, exclude=c(NA,'Casa'))
tabla3

sexo
Hombre  Mujer 
     5      7 

table(sexo,fuma,exclude=c('Casa',NA,'Hola','hola'))

        fuma
sexo     A veces Frecuente Nunca
  Hombre       1         1     2
  Mujer        1         3     1

contingencia<-table(sexo,fuma,exclude=c('Casa',NA,'Hola','hola'))

chisq.test(contingencia)

Warning in chisq.test(contingencia): Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  contingencia
X-squared = 1.2375, df = 2, p-value = 0.5386

print(chisq.test(contingencia)$expected)

Warning in chisq.test(contingencia): Chi-squared approximation may be incorrect

        fuma
sexo       A veces Frecuente    Nunca
  Hombre 0.8888889  1.777778 1.333333
  Mujer  1.1111111  2.222222 1.666667