Calcular médias mensais e semanais

medias.R

library(xts)

lugar = 'RiodeJaneiro-RJ'
file_in = paste('/path/ObsVar_diario_',lugar,'.csv',sep='')
file_out_mensal = paste('/path/ObsVar_mensal_',lugar,'.csv',sep='')
file_out_semanal = paste('/path/ObsVar_semanal_',lugar,'.csv',sep='')

write_file = function(dados,file_out){
	# Arredondar para inteiro
	coredata(dados) = round(coredata(dados))
	# Converter zoo para data frame
	df = data.frame(time = strftime(time(dados), "%F"),value = as.vector(dados))
	# Renomear colunas
	colnames(df) = c('data','valor')
	# Gravar em arquivo CSV
	write.table(df, file_out, quote = FALSE, sep = ',', col.names = TRUE, row.names = FALSE)
}

# Ler arquivo
dados_zoo = read.zoo(file_in, sep = ",", header = TRUE)

# Calcular média mensal
dados_mensal = apply.monthly(dados_zoo, mean)
write_file(dados_mensal,file_out_mensal)

# Calcular média semanal
dados_semanal = apply.weekly(dados_zoo, mean)
write_file(dados_semanal,file_out_semanal)