te <- ReadTimeOutput(filename = system.file("demo_model", "results", "timeCOUT.txt",
package = "HYPEtools"), dt.format = "%Y-%m")
WriteTimeOutput(x = te, filename = tempfile(), dt.format = "%Y-%m")
Run the code above in your browser using DataLab