[R] Making a 'joint distribution'?

[Thomas Lumley]

On Sun, 3 Oct 2004, Ajay Shah wrote:

> Suppose I make two discrete variables --
>> D <- data.frame(f1=sample(1:5,100,replace=T), f2=sample(1:5,100,replace=T))
>
<sniP>
> which is all great. But how do I produce the typical presentation of
> the "joint distribution" where we put the marginal distributions in
> the margins? E.g. I'd like to get some object "joint" where one would
> get :

?addmargins.

 	-thomas