-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathtimeseries2.R
24 lines (23 loc) · 1.11 KB
/
timeseries2.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
library(timeSeries)
p <- read_csv("~/@IIITD/Semester 4/DBAP/Data for DBA - Sheet4 (2).csv")
q<-as.timeSeries(p)
plot(q$sop,q$year)
q_sop<-ts(q$sop, start=2009, end=2021, frequency=1)
q_sos<-ts(q$sos, start=2009, end=2021, frequency=1)
q_tr<-ts(q$tr, start=2009, end=2021, frequency=1)
q_cop<-ts(q$cop, start=2009, end=2021, frequency=1)
q_cos<-ts(q$cos, start=2009, end=2021, frequency=1)
q_bcie<-ts(q$bcie, start=2009, end=2021, frequency=1)
q_tcae<-ts(q$tcae, start=2009, end=2021, frequency=1)
q_ifoi<-ts(q$ifoi, start=2009, end=2021, frequency=1)
q_gaae<-ts(q$sop, start=2009, end=2021, frequency=1)
q_rade<-ts(q$gaae, start=2009, end=2021, frequency=1)
q_glod<-ts(q$glod, start=2009, end=2021, frequency=1)
q_efo<-ts(q$efo, start=2009, end=2021, frequency=1)
q_oi<-ts(q$oi, start=2009, end=2021, frequency=1)
q_iade<-ts(q$iade, start=2009, end=2021, frequency=1)
q_ebit<-ts(q$ebit, start=2009, end=2021, frequency=1)
q_ite<-ts(q$ite, start=2009, end=2021, frequency=1)
q_ne<-ts(q$ne, start=2009, end=2021, frequency=1)
q_beps<-ts(q$beps, start=2009, end=2021, frequency=1)
q_deps<-ts(q$deps, start=2009, end=2021, frequency=1)