Passing arguments to a function

["Walter R. Paczkowski" <dataanalytics@earthlink.net>]

Hi,

I wrote a function to produce crosstabs for a special layout my client
asked for.  The function works by calling the S-Plus crosstab
function.  My function works fine for my purpose but I want to
generalize it.  Basically, the function is

fn.tabs <- function(data){

        

some
code

        

z <-
crosstabs(~ x + y, data = "">

        

some
code
}

Every time I want to change the x and y to tab new variables, I have to
edit the function.  How can I pass x and y as a formula such as
fn.tabs(~x + y, data)?

Thanks,

Walt Paczkowski

_________________________________

Walter R. Paczkowski, Ph.D.
Data Analytics Corp.
44 Hamilton Lane
Plainsboro, NJ  08536
(V) 609-936-8999
(F) 609-936-3733