Hola Ruben,

Dale una mirada a ?aggregate y ?ave.

Un saludo,
Jorge.-


2011/11/26 Rubén Gómez Antolí <>

> Hola:
>
> Tengo un conjunto de datos de viento de esta forma:
>
> vientos<-matrix(c(
>  c(rep(1,5),rep(2,5),rep(3,5)), # Meses
>  rep(c("Calma","Norte","Este","**Sur","Oeste"),3), # Dirección
>  c(10,0,0,0,0,8,0,0,0,0,11,0,0,**0,0), # Calma
>  c(0,7,8,10,1,0,9,8,7,6,0,11,**10,4,3), # 1-5 m/s
>  c(0,9,10,12,7,0,10,3,2,1,0,10,**7,6,8)), # 6-10 m/s
>  ncol=5,dimnames=list(c(1:15),
>    c("Meses","Dirección","Calma",**"1-5 m/s","6-10 m/s"))
> )
>
> Obviamente tengo datos de los doce meses pero me quedo en el tercero por
> no complicar. (Los datos son porcentajes de ocurrencia)
>
> Ahora quiero agrupar por estaciones (invierno, primavera...) esos datos,
> por lo que debería ir sumando cada «celda» una a una según intervalo de
> velocidad y dirección del viento, y dividir entre tres -para obtener la
> media-. Quedaría así:
>
> Dirección, Calma, 1-5 m/s, 6-10 m/s
> Calma, (10+8+11)/3,0,0
> Norte,0,(7+9+11)/3,(9+10+10)/3
> etc.
>
> El caso es que estoy ahí, bregando con cbind, rbind, rowsMeans y tapply y
> no lo consigo. Se que puedo hacerlo con un bucle, ya lo he resuelto antes
> de esta forma, pero me gustaría ver como resolverlo con «ordenes» de R.
>
> Por cierto, para calcular medias según intervalos se que existe
> weighted.mean(), ¿y la mediana y la desviación típica? (Tengo creadas mis
> propias funciones pero me gustaría saber si existen en R)
>
> Gracias por vuestra atención y por las posibles respuestas.
>
> Salud y Revolución.
>
> Lobo.
> --
> Libertad es poder elegir en cualquier momento. Ahora yo elijo GNU/Linux,
> para no atar mis manos con las cadenas del soft propietario.
> ---------
> Desde El Ejido, en Almería, usuario registrado Linux #294013
> http://www.counter.li.org
>
> ______________________________**_________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/**listinfo/r-help-es<https://stat.ethz.ch/mailman/listinfo/r-help-es>
>

	[[alternative HTML version deleted]]

