Skip to content

table() and setting useNA to be there by default?

3 messages · Sean O'Riordain, Peter Ehlers, Jim Lemon

Sean O'Riordain
# 
Good morning,

Is there a way to get table() to default to including NAs  - as in...
table(..., useNA='ifany') or  table(..., useNA='always') or table(...,
exclude=NULL)  ?

I can't see a way under table() or options() or searching the archives
(probably using the wrong keyword?).
t1
1 2 3
1 2 3

I keep forgetting to allow for NAs and I was bitten *again* this
morning... ideally I'd like to be able to set a default in my profile
so that table(t1) will actually do table(t1, exclude=NULL) or
table(t1, useNA='ifany')

I could say something like..
t
   1    2    3 <NA>
   1    2    3    4

but this names it as 't' instead of 't1' which is ugly?

Any other suggestions please?

Thanks in advance,
Sean O'Riordain
Dublin
Ireland
Peter Ehlers
#
Sean O'Riordain wrote:
How about

tab1 <- function(...) table(..., useNA='ifany')

  -Peter Ehlers

  
    

      
      
    

  


  


      

    

    

      
      

        


  

        

      Jim Lemon
    

    

      
      #
    

  


  

      
On 01/07/2010 11:02 PM, Sean O'Riordain wrote:

            

      
      
      
    

        
Hi Sean,
I have managed to get rid of the ugly "t" with this:

tableNA<-function(x) {
  varname<-deparse(substitute(x))
  assign(varname,x)
  tabNA<-table(get(varname),useNA="always")
  names(attr(tabNA,"dimnames"))<-varname
  return(tabNA)
}

Seems a long way round the paddock.

Jim