setwd("C:/Users/Administrator/Desktop")
MEdata=read.csv("MEdata.csv")
MEdata
head(MEdata)
names(MEdata)
nrow(MEdata)
ncol(MEdata)
summary(MEdata)
Z=ts(MEdata(,-1),start=1978)
z=ts(MEdata[,-1],start=1978)
ts.plot(z)
z=ts(MEdata,start=1990)
ts.plot(z)
z=ts(MEdata[,10],start=1978)
ts.plot(z)
setwd("C:/Users/Administrator/Desktop")
MEdata=read.csv("MEdata.csv")
MEdata
z=ts(MEdata[,-1],start=1978)
ts.plot(z)
ts.plot(z,main="zghgjjzb(1978-2013)",lty=c(1:8),col=c(1:8))
legend("topleft",legend=names(x = MEdata[,-1]),lty=c(1:8),col=c(1:8))
plot.ts(z)
LM=lm(TAX~GDP,data=MEdata);LM
summary(LM)
attach(MEdata)