Skip to content

[R-es] media

4 messages · jbetancourt en iscmc.cmw.sld.cu, eric, Carlos Ortega +1 more

#
Estimados

Quisiera calcular las medias de cada semana de una sola vez con un script.
Apreciaría su ayuda

sem01	sem02	sem03	sem04
43	46	49	42
67	57	74	87
33	39	38	34
82	55	59	44
33	39	38	34

saludos
José



--
Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas

Infomed: http://www.sld.cu/
#
hola, aqui una forma de hacerlo usando stack() y data.table()


library(data.table)
d <- read.csv("/home/neo/Desktop/beta.csv", header=TRUE, sep="\t")
d
d <- stack(d)
d <- as.data.table(d)
d[, mean(values), by=ind]


saludos,

Eric.
On 02/16/2017 01:11 PM, jbetancourt en iscmc.cmw.sld.cu wrote:

  
    
#
Hola,

Una opción muy sencilla:

mean_col <- apply(datos_semanas, 2, mean)

Saludos,
Carlos Ortega
www.qualityexcellence.es


El 16 de febrero de 2017, 17:11, <jbetancourt en iscmc.cmw.sld.cu> escribió:

  
    
#
?colMeans

El día 16 de febrero de 2017, 17:39, Carlos Ortega
<cof en qualityexcellence.es> escribió: