Try this:

sweep(with(x, tapply(VAR, list(variable, YEAR), FUN = prod)), 2, with(x,
tapply(VAR, YEAR, FUN = prod)), FUN = "/")

On Mon, Apr 26, 2010 at 12:07 PM, n.vialma@libero.it <n.vialma@libero.it>wrote:

>
> Dear list,
> I have a big data frame which looks like this:
> variable                 YEAR                          VAR
> EC01                      2006                             100
>
> EC01                      2007                              200
>
> EC02                       2006                             500
>
> EC02                       2007                              450
>
> PROD                       2006                              567
>
> PROD                       2007                              543
>
> What I would like to do is to divide each variables by PROD,namely:
> EC01(2006)/PROD(2006)
> EC01(2007)/PROD(2007)
> EC02(2006)/PROD(2006)
> EC02(2007)/PROD(2007)
> Anyone knows how to do it??
> THANKS!!!
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>



-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O

	[[alternative HTML version deleted]]

