Mejor aun:

out <- with(datos, tapply(peso, list(sexo, edad), sum))out[is.na(out)] <- 0
addmargins(out)

--JIV


On Thu, Sep 2, 2010 at 10:30 AM, Carlos J. Gil Bellosta <> wrote:

> También,
>
> ?margin.table
>

	[[alternative HTML version deleted]]

