[S] Object not found within function

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

Here is the code:

usage.crosstab<-function(usage.log) {

  class(usage.log$Category)<-"character"
  categories<-unique(usage.log$Category)
  rows<-match(usage.log$Category,categories[c(1,3:7,9)],nomatch=0)
  crosstab<-crosstabs(~Category,data=usage.log,subset=rows>0)
  return(crosstab)

}

Here is the calls and error:

>  options(object.size=10000000)
>  crp<-read.table("crp.prod.txt",sep=',')
>  source("splus.funcs")
>  usage.crosstab(crp) 
Problem in eval(substitute(subset), local = data): Object "rows" not found 
Use traceback() to see the call stack7565040

Any suggestions? The data object "usage.log" it is working with is 
7565040 bytes. The only thing I can think of is some kind of memory 
problem in splus. I am using Splus 5.0 Release 2 for Solaris 2.6.

Scott
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~ 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