inst/temp/aggregate.test.R

In ecor/RSMET: Get Real-Time Meteorological Data in SMET Format

# TODO: Add comment
# 
# Author: ecor
###############################################################################
rm(list=ls())
library(RSMET)
library(lubridate)
source('/home/ecor/Dropbox/R-packages/RSMET/R/as.smet.R')
source('/home/ecor/Dropbox/R-packages/RSMET/R/aggregate.R')
				
smet <- as.smet(system.file("examples/T0179.smet",package="RSMET"))

out <- aggregate(smet)
out_d <- aggregate(smet,by="daily",past=FALSE)