Shouldn't RG.MA be:

function (object)
{
     object$R <- 2^((object$A + object$M)/2)
     object$G <- 2^((object$A - object$M)/2)
     object$M <- NULL
     object$A <- NULL
     new("RGList", unclass(object))
}




Naomi S. Altman                                814-865-3791 (voice)
Associate Professor
Dept. of Statistics                              814-863-7114 (fax)
Penn State University                         814-865-1348 (Statistics)
University Park, PA 16802-2111

	[[alternative HTML version deleted]]