library(dyn)
library(forecast)
data1 = read.table("D:\\FSU-school\\statapp2\\project\\4-17\\data.txt", header=TRUE)
attributes(data1)

attach(data1)
#TCMNOMM3 EDM3

#data1_ts1 = ts(data1$TCMNOMM3, start=c(2004, 4), frequency=365)
data1_ts2= ts(data1$EDM3, start=c(2004, 4), frequency=365)
data1_ts2