-
Notifications
You must be signed in to change notification settings - Fork 2
/
data_spliting.R
91 lines (71 loc) · 3.64 KB
/
data_spliting.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
# Loading required funtions and pre-processing the data set
data_spliting <- function(url,train_per){
source("functions.R")
source("Data_Processing.R")
# Select Predictor Order (Range: 3 <-> 10 )
predictor_order <- seq(3,10,1)
## Currency : 1. "U.S. Dollar" / 2. "Australian Dollar"/ 3. "Canadian Dollar"/ 4. "Euro"
## 5. "Pound Sterling"/ 6, "Singapore Dollar"/7. "Swiss Franc"
currency <- c("USD","GBP","EUR","CHF","AUD","CAD","SGD")
# To hold the dataframe for each prediction_order
dataset_list <- list()
data_frame_usd <- list()
data_frame_aus <- list()
data_frame_can <- list()
data_frame_euro <- list()
data_frame_pon <- list()
data_frame_sin <- list()
data_frame_swi <- list()
for(i in 1:7){
if (i == 1) {
for(j in 1:8){
data_frame <- Data_Processing(url,predictor_order[j],currency[1],train_per)
data_frame_usd[[j]] <- data_frame
}
dataset_list[[i]]<- data_frame_usd
}
if (i == 2) {
for(j in 1:8){
data_frame <- Data_Processing(url,predictor_order[j],currency[2],train_per)
data_frame_aus[[j]] <- data_frame
}
dataset_list[[i]]<- data_frame_aus
}
if (i == 3) {
for(j in 1:8){
data_frame <- Data_Processing(url,predictor_order[j],currency[3],train_per)
data_frame_can[[j]] <- data_frame
}
dataset_list[[i]]<- data_frame_can
}
if (i == 4) {
for(j in 1:8){
data_frame <- Data_Processing(url,predictor_order[j],currency[4],train_per)
data_frame_euro[[j]] <- data_frame
}
dataset_list[[i]]<- data_frame_euro
}
if (i == 5) {
for(j in 1:8){
data_frame <- Data_Processing(url,predictor_order[j],currency[5],train_per)
data_frame_pon[[j]] <- data_frame
}
dataset_list[[i]]<- data_frame_pon
}
if (i == 6) {
for(j in 1:8){
data_frame <- Data_Processing(url,predictor_order[j],currency[6],train_per)
data_frame_sin[[j]] <- data_frame
}
dataset_list[[i]]<- data_frame_sin
}
if (i == 7) {
for(j in 1:8){
data_frame <- Data_Processing(url,predictor_order[j],currency[7],train_per)
data_frame_swi[[j]] <- data_frame
}
dataset_list[[i]]<- data_frame_swi
}
}
return(dataset_list)
}