            Gracias por vuestras respuestas. Al final, este script me resolvió estupendamente: 
> library(plyr)
 
> ddply(Datos,"arte",function(X) data.frame(wmn=weighted.mean(X$talla, 
+     X$ejemplares), 
+     mn=mean(X$talla)))
 
 
    arte                      wmn            mn
1   BACA                33.362       40.120
2   BETA                 26.566       28.654
3 PAREJA              38.9289     42.278
 
 
 De esta forma obtengo una media ponderada de la talla (en funcion de los ejemplares) para cada tipo de arte, y tambien la media aritmetica.
De: jose cebrian <pepeceb@yahoo.es>
Para: "R-help-es@r-project.org" <R-help-es@r-project.org>
Enviado: viernes 29 de julio de 2011 10:53
Asunto: [R-es] Media Ponderada

Hola a todos.
Ya he escrito sobre esto pero vuelvo a no ser capaz de resolver una cosa 

Tengo este archivo



año   mes      fecha  puerto           barco   origen       arte        
   
 2007 enero 2007-01-04 Ribeira  juan        Norte     PAREJA     
 2007 enero 2007-01-04 Ribeira    luis        -Norte     BETA   
 2007 enero 2007-01-04 Ribeira  pedro     Norte     PAREJA     
 2007 enero 2007-01-04 Ribeira    marcosNorte     BACA    
 2007 enero 2007-01-04 Ribeira       nolo    Norte     GNR   
2007 enero 2007-01-04 Ribeira      bein     Norte     TNF    

 p.desem  talla ejemplares 
   1485        30          6     
   1485         31         18    
    1485         32         18    
    1485         33         12     
   1485         57         12     
    1485         35          6    



Puedo hallar la Media Ponderada de la Talla en funcion de los ejemplares (weighted.mean (talla, ejemplares))
Pero no soy capaz de hallar la media ponderada en funcion del arte

Tal que me quede algo asi  

  BACA     BETA   PAREJA 
40.12        28.66    42.27

Esto me sale con      tapply(talla+ejemplares,arte, weighted.mean, na.rm=TRUE)


Lo que pasa es que esto es la media y yo quiero la media ponderada

Bueno, gracias por leerme
Saludos
Jocedo

    [[alternative HTML version deleted]]


_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
	[[alternative HTML version deleted]]

