# NOT RUN {
smet1 <- as.smet(system.file("examples/zugspitze1.smet",package="RSMET"))
smet2 <- as.smet(system.file("examples/zugspitze2.smet",package="RSMET"))
newsmet <- collapse.smet(x=smet1,y=smet2)
newsmet_ <- collapse.smet(x=smet2,y=smet1)
x <- smet(system.file('examples/PIEM001114.smet',package="RSMET"))
y <- smet(system.file('examples/PIEM001114_20160308.smet',package="RSMET"))
xy <- collapse.smet(x,y)
# }
Run the code above in your browser using DataLab