dispersion matrices

Hello
 
Does R have any function that calculates from a data matrix with several classes the between and within dispersion matrices S_b and S_w
 
Thanks
 
Luis