row and column totals from a two by two table

[Andrew Czarn <aczarn@cs.uwa.edu.au>]

to anyone who can assist

i use the following code to produce a two by two table of means and find 
the minimum value (i use print as this occurs within an interation loop), 
viz:

tempSearch<-tapply(outcome,list(variableOne,variableTwo),mean)
print(tempSearch)
print(min(tempSearch))
tempSearch.rr<-row(tempSearch)[tempSearch==min(tempSearch)]
tempSearch.cc<-col(tempSearch)[tempSearch==min(tempSearch)]
print(cbind(rownames=dimnames(tempSearch)[[1]][tempSearch.rr],columnnames=dimnames(tempSearch)[[2]][tempSearch.cc]))

could anyone suggest how i would go about getting splus to calculate the 
row and column totals for this two by two table, and then print out  
tables viz:

variableOne(Level 1) Row Total
variableTwo(Level 2) Row Total
etc

and

variableTwo(Level 1) Column Total
variableTwo(Level 2) Column Total
etc

any assistance would be greatly appreciated.

i am using 
S-PLUS : Copyright (c) 1988, 1999 MathSoft, Inc.
S : Copyright Lucent Technologies, Inc.
Version 5.1 Release 1 for Linux 2.0.31 : 1999

thanks kindly

andrew

Dr AST Czarn
Department of Computer Science
The University of Western Australia