-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathInitialDatasets.R
More file actions
111 lines (102 loc) · 4.21 KB
/
InitialDatasets.R
File metadata and controls
111 lines (102 loc) · 4.21 KB
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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt2",
bkp = as.integer(c(0, 138, 225, 242, 299, 308, 332, 497)),
mu = c(-0.18, 0.08, 1.07, -0.53, 0.16, -0.69,-0.16),
sigma = 0.3
)
i <- i+1
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt3",
bkp = as.integer(c(0, 10, 20, 40, 60, 90, 120, 160, 200, 250, 300, 360, 420, 490, 560)),
mu = c(7, -7, 6, -6, 5, -5, 4, -4, 3, -3, 2, -2, 1, -1),
sigma = 4
)
i <- i+1
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt4",
bkp = as.integer(c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140)),
mu = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1),
sigma = 0.4
)
i <- i+1
#
# initialDatasetDesc[[i]] <- new("DatasetDesc",
# Name = "Dt4plus2",
# bkp = as.integer(c(0, c(10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130)+2, 140)),
# mu = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1),
# sigma = 0.4
# )
# i <- i+1
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt5a",
bkp = as.integer(c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150)),
mu = 1:15,
sigma = 0.3
)
i <- i+1
# initialDatasetDesc[[i]] <- new("DatasetDesc",
# Name = "Dt5aplus2",
# bkp = as.integer(c(0, c(10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140)+2, 150)),
# mu = 1:15,
# sigma = 0.3
# )
# i <- i+1
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt5b",
bkp = as.integer(seq(0, 500, by=10)),
mu = 1:50,
sigma = 0.45 # approx 1/sqrt(5)
)
i <- i+1
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt6a",
bkp = as.integer(seq(0, 1000, by=5)),
mu = rep(c(0, 1), 100),
sigma = 0.2
)
i <- i+1
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt6a2",
bkp = as.integer(c(0, seq(105, 200, by=5), seq(605, 700, by=5), 1000)),
mu = c(rep(c(0, 1), 20), 0),
sigma = 0.2
)
i <- i+1
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt6b",
bkp = as.integer(seq(0, 1000, by=10)),
mu = rep(c(0, 1), 50),
sigma = 0.35
)
i <- i+1
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt6c",
bkp = as.integer(seq(0, 1000, by=20)),
mu = rep(c(0, 1), 25),
sigma = 0.5
)
i <- i+1
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt6d",
bkp = as.integer(seq(0, 1000, by=100)),
mu = rep(c(0, 1), 5),
sigma = 1
)
i <- i+1
########################
initialDatasetDesc[[i]] <- new("DatasetDesc",
Name = "Dt7",
bkp = as.integer(c(0, 1000)),
mu = 0,
sigma = 1
)