[S] crosstabs function problem

[Scott Longmore <longmore@fsl.noaa.gov>]

Wrote the following routine...however It does still drops the
unused levels.

usage.crstb.cat<-function(usage.log,regexp) {
  return(crosstabs(~DepictDescript+Scale,
                   data=usage.log,                                              
 
                   subset=grep(regexp,usage.log$Category),
                   drop.unused.levels=F
                  )
        )
}

Any suggestions?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~ Scott Longmore - CIRA Research Associate   \\\\\\\\\\\\    |   ~
~ DOC\NOAA\OAR\FSL\MD\E-Team & FSL\RRV Project  \\\\\\\\\  - * - ~
~ 325 Broadway R/E/FS6, 2C311 DSRC                ~\__n__\   |   ~
~ Boulder, CO 80303 USA                             \\\\\\\      ~ 
~ E-mail: longmore@fsl.noaa.gov                       \MMMM\     ~
~ URL: http://www-md.fsl.noaa.gov/~longmore             \\\\\    ~
~ Phone: (303) 497-6443  Fax: (303) 497-3096     \\\\\Dust\Devil/~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
In the immortal words of Socrates..."I drank what?" -Chris Knight-

-----------------------------------------------------------------------
This message was distributed by s-news@wubios.wustl.edu.  To unsubscribe
send e-mail to s-news-request@wubios.wustl.edu with the BODY of the
message:  unsubscribe s-news